INCROYABLE : 

UN ORDINATEUR 

TOMBE AMOUREUX 

APRES UNE CUITE 

AU CHAMPAGNE ! 

Voir page 14. 



LINFORMATIQUE 

POUR TOUS 

ET 90.000 DES 

120.000 MICROS 

POUR THOMSON ! 

QUI A DIT 

XENOPHOBE ? 



La distribution des bons de 
commande pour les ordinateurs fai- 
sant partie du plan "L'lnformatique 
pour tous" vient de se terminer. Les 
120.000 micros du plan de Fabius se- 
ront francais a 98,2 % ! Le Pen est 
d' accord, voir page g . 



C'est nouveau, pa vient de sortir : 

L actuahle de la micro-mformauque Lire pages 9,10. 



KLABOTZ ! KLABOTZ ! 
Carati est en page 1 7. 



DEULIGNEURS 

Les faineants , page n . 



CINOCHE-TELOCHE 
pages 14 et 15. 



FORMATION A L'ASSEMBLEUR 

Le prof et I 'amateur eclaire vous attendent a la page 19 



EUHHHHH = MC 2 

Tout est fourni : moniteur, lecteur de disquette. des interfaces comme s'il en pleuvait ... 
Mais ou est le genie ? 



Le micro-ordmateur Einstein es! ap- 
paru sur le marche francais voici 
deux mois et c'est un drole d'ani- 
mal : un peii comme si son cons- 
tructeur i.Tatung. un des plus gros 
distribuleurs d'e'lectro-mertager en 
Grande Bretagne qui delient a tui 
tout seul plus de 20% des venles 
de televiseursi avait decide de pren- 
dre le meilleur sur chacune des ma- 
chines alors en vente 
Resuitat un batard Un beau ba- 
tard. certes. mais un batard quand 
meme 

LA MENAGERIE 

Demblee. I Einstein soutfre du prin- 
cipal defaut des jeunes ordinateurs 
le manque de logiciels Seuls quel 
ques jeux se battent en duel 
comme Chuckie Egg de A'n'F Soft 
ware. Hunchback ou Shark Hunter, 
Bezz Off et Backgammon de Electric 
Software qui s'est contents d adap- 
ter des logiciels existant deia sur 
MSX. En tout, une vingtaine de 
titres de disponibtes. 
Par contre. il benedcie d'un enorme 
avantage : comme il tourne grace a 
un processeur Z80A a 4 Mhz, il 
peut lui etre adjoint une carle CP/M. 
qui fait aussi office de carle 60 co- 
ionnes (pendant qu'on y est). Cout 
de la carte : 800 francs, des clopi- 
nettes surtout par rapport a lunite 
centrale qui vaut 7990 Dalles > 

LA PEAU DU PHOQUE 

Qu'est-ce qui justifie un tel prix ? 
Une configuration complete, c'est a 
dire I'unite centrale, un lecteur de 
disquettes et un moniteur. le tout 
fourni avec cables, documentations 
et manuels en francais. 
Un moniteur monochrome est 
fourni avec la machine (conlraire- 
ment a ce que nous avons annonce 
dans le comparatif paru dans le nu- 
mero 77) amsi qu un lecteur de dis- 
quettes 3 pouces de technologie Hi- 
tachi 

Une petite parenthese a propos du 
standard 3 pouces. II a ete decide 
{par qui ? Oil ? Quand ?) que le 
nouveau standard destine a rempla- 
cer le 5 pouces un quart etait le 3 
pouces et demi de Sony Mais oil 
est-il. ce 3 pouces et demi ? A part 
sur le Macintosh, pour ('instant. 
nulie part ! Amstrad et One, entre 
autres, utilisent le 3 pouces tout 
court, ce n est pas un standard ? 
Qu'esl-ce qui determine qu'un stan- 
dard soit plus standard qu'un autre 
standard : une norme etablie par un 
des constructeurs ou le fait que son 



standard soil plus repandu ? Fin de 
la parenthese 

LES TENTACULES DE LA 
PIEUVRE 

Une autre cause possible pour ce 
prix eleve : le nombre de connec- 
teurs. Outre une RS 232 entiere- 
ment redefinissable a partir du basic 
(vitesse de transmission reglable en 
Amission ET en reception de 75 a 
9600 bauds), on trouve un port uti- 
lisatetir 8 bits, egalement adressa- 



des thermomettes. Cote video, une 
prise TV et une RVB (peritel. cable 
fourni) vous permettront de voir ce 
qu'il y a sur I'ecran. II y a quelque 
chose sur i'ecran ? 

LA PERLE DE L'HUITRE 

L'Einstein benefice de deux syste- 
mes d 'exploitation. Ca fail riche. 
non ? Ne vous rejouissez pas trop 
vite : seul run d'eux est destine aux 
disquettes. il s'appelle classique- 
ment DOS et comporte tout ce 




ble a partir du basic, un bus a 60 
broches prevu pour des utilisations 
ulterieures. un connecteur pour 
brancher jusqu'a deux lecteurs de 
disquettes externes. une sortie Cen- 
tronics pour une impnmante et 
deux ports joystick Attention a ces 
demiers : ils sont aux normes Ta- 
tung. ce qui est tout sauf standard 
Si vous vouler utiliser vos vieux 
joysticks Atari, il vous faudra 
ramer Ceci dit, un grand nombre 
d'appareils scientifiques de mesure 
peuvent y etre branches, comme 
des cellules photo-eiectnques ou 



qu'on peut artendre dun DOS 
Lautre s'appelle M0S. Traduction 
Machine Operating System, c'est un 
nom comme un autre pour un mo- 
niteur Car e'en est un et tres puis- 
sant meme puisqu'ii comprend le 
calcul des branchements relatifs. la 
conversion de I'hexade'cimal en de- 
cimal et reciproquement. les mou- 
vements de blocs de m6moire. le 
remplissage de zones-memoire. la 
lecture et I'ecriture directe sur les 
secteurs de la disquette. Cette der- 
niere option est rarissime dans un 
moniteur, d'autant que la presenta- 



tion est modifiable a souhait (visua- 
lisation des caracteres ASCII, des 
octets en decimal, en hexa. ..) 
On peut passer du DOS au MOS. 
mais aussi du DOS ou du MOS au 
basic lis ne sont pas ensemble ? 
Ben. non. 

LA QUEUE DU SINGE 

Le basic est fourni sur disquette 
Avantage ; gain de place lorsqu'on 
travaille en assembler, sous CP/M 
ou sous tout autre langage Desa- 
vantage II faut attendre qu'il se 
charge a chaque reinitialisation. Un 
coup d'oeil rapide ? Notre test lou 
va nous permettre de nous faire une 
idee 

10 A= 2 

20 FOR N- 1 TO 20 
30 A= SOR(A) 
40 NEXT N 
50FORN= 1 TO 20 
60A=At 2 
70 NEXT N 
80 PRINT A 

Et combien de temps va-t-il falloir a 
Albert pour nous executer ca ? 
Deux semames ? Trois jours ? Une 
apres-midi ? Cinq minutes ? Que 
nenni, mon ami : une seconde et 
un dixieme C'est plus qu'honora- 
ble, ouisQue le seul micro a alter 
plus vite est r Amstrad (0 8 secon- 
des) Et quel resuitat cela va-t-il 
nous donner ? 2 ? 2.00000001 1 
1 99999999 ? Macache bono, my 
tnend : 2 15828 Alors ca. par 
contre, c'est carrement nu). C'est 
moins bon que le ZX 81 ! 
Robe de cure, langue de nonne et 
deuxieme test 

10FORN= 1 TO 1000 

20 REM 
30 NEXT 

Accrochez-vous : une seconde 8 
dixiemes Bravo, c'est tres bien 
Remplagons la ligne 20 par : 

20 PRINT N 

Asseyez-vous : 35 secondes ! Nul ! 
Pourquoi t'est-ce que ? Parce que 
I'ecran est gere par une memoire 
video de 16 Ko separ6e C'est pas 
une raison. trop lent 

LES PLUMES DU PAON 

Regardons un peu I'ecran : 16 cou- 
leurs sont disponibles pour I'e — re 

Suite page 16 



BIDOUILLE GRENOUILLE 

Ou comment tricher, pirater, modifier, tratiquer. magouiller. 
bidouiller et grenouiller avec les logiciels du monde entier. 
Mais dans la legalite. au moins ? Of course, mon general I 
Lire page 9. 



CONCOURS PERMANENTS 

Voire programme, non content de vous rapporter 1.000 
francs par page publiee. peut vous rapporter 20.000 
francs chaque mois ou un voyage en Calitornie pour deux 
chaque trimestre Reglement en page interieure. 



OUR VOTRE ORDINATEUR : 
AMSTRAD . APPLE He et He . CANON X-07 . CASIO FX 702-P. 
COMMODORE 64 ET VIC 20 . EXELVISION EXL 100 . HECTOR HR . 
MSX et compatibles . ORIC 1 ET ATMOS . SINCLAIR ZX 81 ET SPECTRUM. 
SHARP PC 1500 . TEXAS TI-99/4 A . THOMSON T07, TO7/70, ET M05. 
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TO-DRAW 



Artistes et gentes meconnus, voici enfin un utilitaire a 
la mesure de votre incomparable talent. 

Franck et Nicolas MAGNIER 



Mode demploi : 

Programme de dessin utilisanl le (oystick, Apres affichage de ia 
page de presentation et appui sur ACTION, un court instant est ne- 
cessaire a I'implantation de la partie MACHINE. 
LISTE DES FONCTIONS : 

DEI : Vous dirigez un point a laide de la manette. lappui sur AC- 
TION permet d en garder la trace. 

DE2 ; Identique a DEI. mais le deplacement s effectue pixel par 
pixel. 

RAY : Lappui sur ACTION definit un point de depart, chaque nouvei 
appui telie le point courant au point de depart 
CAR : Deux points definis par ACTION, figurent les extremites d une 
des diagonales du carte ou du rectangle a dessiner. 
BOX : Identique a CAR mais la figure est remplie par la couleur 
courante (voir COU). 

LIG : Trace une ligne entre deux points definis par ACTION. 
TRA : L appui sur ACTION trace une ligne du point courant au point 
precedemment affiche. 

RON : Trace un cercle apres definition du centre par ACTION et 
dun second point sur une meme ligne horizontale pour la longueur 
du rayon. 

DIS : Identique a RON mais le cercle est rempli par la couleur cou- 
rante (voir COU). 

ECR : Permet lecriture de caracteres sur I ecran apres en avoir de- 
termine la couleur a la demande de lordinateur. Deplacement a 
laide des touches du curseur. sauf RA2 et ^"3 
COU ; Definition des couleurs de lecran ou du trace. 



THOMSON TO7JO7 70. 



REM : Permet un remplissage en plem ou en trame d une zone 
d'ecran avec une couleur definie. L appui sur ACTION provoque un 
trace des deux cotes du poinl courant. jusqua lencontre dun point 
"forme". Lavance du remplissage dans la direction voulue est deter- 
minee par la position du manche. 

COP : Permet la copie dune zone de f ecran vers une autre. La 
zone a reproduire doit etre definie par les points extremes de la dia- 
gonal du carre qui la comporte (point superieur gauche avec le 
point infeneur droit) La zone ou s effectue la copie est definie par le 
point superieur gauche du carre qui la comporte. 
SAV : Effectue la sauvegarde de lecran graphique sous forme de 
fichier binaire. Les operations sont mdiquees. 

LOA : Recupere une image sauvee par SAV ou par tout autre pro- 
gramme permettant cette fonction. Operations egalement indiquees. 
EFF : Effacement du dessin apres confirmation 
FIN : End. fin d'uliiisation du programme. 

L appui sur la touche "* I permet de sortir a tout moment d une de 
ces fonctions. 

PRECISIONS SUPPLEMENTAIRES 

- Effacez un trace quelconque en utilisant une couleur de fond (ne- 
gative). 

- Evitez les couleurs differentes rapprochees. 

- Le remplissage "trame" concerne uniquement les couleurs positi- 
ves (de a 7). 

- Les fonctions, sous la forme de sous-programmes, peuvent-etre 
rajoutees ou supprimees suivant vos besoins 

- II est conseille de sauvegarder le programme apres l avoir tape 
(risque de plantage en cas derreur dans les DATA). 

- Si pendant I'execution dun dessin. lordinateur inscrit le numero 
dune erreur commise lors de la frappe du programme, ainsi que la 
ligne oil elle s est produite. notez ces indications Faites SAV pour 
sauver le dessin en cours puis FIN et corngez le programme Re- 
ctwgez ensuite votre dessin par LOA. 










5 CLEhF.'.&HBF00:ON ERROR GOTO 10090 



el Ti-"TO-DRAM":X-RNDiX«RND 

62 ATTRBl,0iCLS!SCREEN7,0, 1 

63 FOR I«l TO LEN<Tf) 

64 LOCATE 1 t+C 1*2) . 12, 01CQLOR H*TC7*RND> 
+1IPRINT*." 

65 PLAY "A103L5D0SIIt"iSCR£EN,,INT(RND*7) 

♦ I 

66 NEXT I 

67 PLAY "A8L5O5D0S1LAS0FAMIRED003DOSILAS 
0FAMIRED0OID0S1LAS0FAHIRED0" 

68 FOR 1-1 TO LEN<T!> 

69 LOCATE 11 ♦< I*2>, 12,6iC0L0R INT(RND*7) 

♦ 1JPR1NT f1ID*(T»,I,l> 

70 PLAY "AlOlLSDOSQ-sSCREEN,, INT<RND*7>+ 
1 

72 NEXT I 

73 FOR XM TO 23 

74 BOX <2*X,2*X>-i2*X+<2*X>,2*X+(2*X>>,4 

75 BOX <319-2*X,2*X:'-<319-4*X,4*X>,7 

76 BOX <319-2*X, 199-2*X)-<:319-4*X, 199-4* 
X>,1 

77 BOX >.£**, 199-2*JO=<;4iX, 199=4IXJ, 3 
80 NEXT X 

82 ATTRB0,0:LOCATE10,£4,0 
33 COLOR 3,6 

84 PRINT "Appuser sur 'ACTION'"; 

85 IF STRIC<0>-0 THEN 85 

86 LOCATE10,24,0:COLOP7:PRINT "Appuaer s 
ur 'ACTION"; 

91 • 



I 

93 PLAV "OJAIDOMIOOKI" 

94 IF K028883 THEN CLSsPRINT -IL Y A UN 
E ERREUR DANS LES DATAS. VERIFIEZ- 
LES H":END 

95 DATA 34,7E,BE,BF.F0, 10, BE. BF. F2, 8C. 81 
, 3F.22,09, 10,8C,06,C7.22,63,BD,EB,21,F7, 
60,38, BE, BF.F8, 10, BE, BF,FA, 8C, 01, 3F.22, 
9,10.8C,80,C7,22,83.Bl>,£9,9F,BE,BF,Fe,3e 
,01.BF,BF,F0,BE,BF,F8,30,B1,BF,BF,F8,FC, 
BF.F0, ie.B7.BF.F4 

96 DATA 23,BA,BE,BF,F2,30,0I,BF,BF,F2,8E 
,BF,FA, 30,01, BF.BF, FA, FC,BF,F2, 10,83,8F, 
F6,22,BE 

97 DATA FC,BF,FC.FD.BF.F0,FC,BF,FE,FD.BF 
,F8, 20,93. 35, FE 

98 DATA 34,7E,B6,BF.FB,B7,60,38.BE,BF,FC 
, 10,BE,BF,FE,1F,20,C4,01,27.08, IF, 18,C4, 
01,27.88,20,89, IF, 10,C4,81,27, 83, BD,E8,8 
F,B6,BF,FA,4D,27,0;,BD,E8,0F,30.61,8C>01 
,48,27,0C,BD,E8,21,C1,00,2C.65,4D,27,CF, 
20, EA 

99 DATA BE,BF.FC. 10, BE,BF,FE, IF, 20, C4,01 
,27.88, IF. 10, C4.0 1,27, 08, 20, 09, IF, 10, C4. 
0l,27,03,BD,E8,0F.86,BF,FA,4D,2?,83,Bt>,E 
8.0F.30, lF,8C,8e,00,2D,aC,BD,E8,21,Cl,ee 
,£C.05.4D,27,CF.20,EA,35,FE 

100 ' DEFINITION DES VARIABLES 

101 ' 

165 A*="F0NCTI0N : "+CHRf <24> 

110 X1=160:Y1=199:X2=160 

1£0 Y£=100:CP=7:P=-1 

£08 ' RAZ DE L' ECRAN 

210 SCREEN?,, 1:CL*:LOCATE0.0,0:CONSOLE24 

■ , ,i:BOXFce,0>-<320.2A0>,-l 

220 LOCATES, 25JC0L0R, 4 

230 PSET(X2,Y2>.CP 

:.:>< ■ C'EHhNDE [■■ UNE fqh<: 1 ION 

258 L9CATE0, 25: COLOR 7.4JPRINT A*;: INPUT 

FJ 
260 IF LEFTt<Ff ,3' = -'DEl" THEN 1000 
270 IF LEFT*<F«.3<="DE2" THEN 1200 
280 IF LEFT«(F*,3'="RAY- THEN 1400 
290 IF LEFT*CFt,3 ="LIf THEN 1600 
300 IF LEFT*<F*,3>="TRA" THEN 1800 
310 IF LEFT*<F*,3>="C0U" THEN 2000 
320 IF LEFT»<F»,3 = M CAR" THEN 2100 
330 IF LEFTKF*,3:> = "B0X- THEN 2300 
340 IF LEFT«(FJ,3>="R0N" THEN 2500 
350 IF LEFT*(FI,3'="DIS" THEN 2800 
360 IF LEFT(<F»,3>="REN- THEN 3100 
370 IF LEFT«<FS,3>="C0P" THEN 3500 
380 IF LEFT$<F*,3:="ECR" THEN 3880 
385 IF LEFT*CF*,3;'-"P0S* THEN 4200 
390 IF LEFT«(F*,3>="SAV THEN 3900 
400 IF LEFTt(f*,3>="L0A" THEN 4000 
405 IF LEFTKFJ.7 ="EFF" THEN 4 1 8* 
410 IF LEFT»<F*,3>= FIN" THEN C0NS0LE9,2 
4,0,0:SCREEN3,0,0:END 

999 ' 

1000 ' DESSIN 1 



I860 Xl«X2tYl«Y2 

1070 ON A COSUB 5000,5010,5028,5030,5040 

.5050,5060,5070 

1160 P»POINT(X2,Y2;i 

1170 PSET(X2,Y2),CP 

1180 GOTO 1010 

1199 ' 

1200 ' DESSIN 2 

1201 ' 

1210 A«STICK<6) 

1220 IF AO0 THEN 1250 

1230 Rt-INKEY* 

1240 IF R»«CHR«<36> THEN 240 ELSE 1210 

1250 IF STRIC<6>»0 THEN PSET<X2, Y2), P 

1260 X1-X2JY1-Y2 

1270 ON A GOSUB 5000,5010,5020,5030,5040 

,5050,5060,5070 

1360 P*P0!NTCX£,Y2) 

1370 PSET(X2,Y2>,CP 

1380 IF STICK<0>*0 THEN GOTO 1210 

1390 GOTO 1380 

1399 ' 

1400 * RAYONS 

1401 ' 

1410 Ra0 

1420 IF STRIG»:0>=-lTHENIFR«nHENLlNE<Xl, 

Yt)-(X2,Y2>,CP: GOTO t 420: ELSEBEEPiXI=X2:Y 

l-V2iR-UP2-P0INT'Xl,Yl> 

1425 A-STICK(B) 

1430 IF AO0 THEN 1460 

1440 RS-INKEYt 

1445 IF R«-CHR*l29) THEN PSETrXl, Y1^,P2: 

R-0 

1450 IF Rf-CHRf(30:< THEN 248 ELSE 1420 

1460 PSET<X2,Y2>,P 

1470 ON A GOSUB 5008,5010,5020,5030,5049 

.5050.5060,5070 

1560 P»P0INT(X2,Y2 > 

1570 PSET(X2,Y2>,CP 

1580 IF R=l THEN PSET(X1, Yl >,CP 

1590 GOTO 1420 

1599 ' 

1660 ' LIGNES 

1601 ' 

1610 L>0 

1620 IF STRlGt0>=-lTHENIFL=lTHENLINEtXl, 

Yl)-(X2,Y2),CPiL-0: GOTO 1623! ELSEBEEP: XI = 

X2:Y1=Y2:L=1sFP=1 

1623 IF STRIC<0>=-1 THEN 1623 

1625 A=STICK<0> 

1630 IF AO0 THEN 1660 

1640 Rf=INKEY« 

1645 IF R**CHRS<29- THEN PSET « XI . , 1 ■ . P2: 

L=0JFP=0 

1659 IF R*=CHRJ.30> THEN 240 ELSE 1620 

1660 PSET<X2,Y2>,P 

1670 ON A GOSUB 5099,5910.5020,5038,5040 

.5050.5060,5070 

1""60 P = P0INT(X2.Y5' 

1765 IF FP-0 THEN P2=P1 

1770 PSETIX2, Y2),CP 

1"80 IF t_=l THEN PSET'XI.YI>,CP 

1790 GOTO 1620 

I"99 ' 

1800 ' TRACE 

1801 ' 

1805 TR=0 

1810 A=STICK<0> 

1815 IF STRIG<0>=-1THENIFTR=ITHENLINE< XI 

■ VI/-'X2,Y2>,CP:>:i=>:2:YJ=Y2!GOTO1810:ELS 

EBEEP:Xl-X2:Yl=Y2:TP=i:GOTO1810 

1S20 IF AO0 THEN 1850 

1830 R*=INKEYS 

1848 IF R*=CHRi(38^ THEN 240 ELSE 1818 

1350 IF STRIG'0>=0 THEN PSETtX2, Y2),P 

1370 ON A GOSUB 5999.5010.5020,5030,5940 

.5050,5060,5079 

1960 P«P0INT*X2,Y2' 

1970 PSET(X2,Y2i,CP 

1980 GOTO 1810 

1999 ' 

2080 ' COULEURS 



01 



1010 A=STICK(0> 

1020 IF AO0 THEN 1950 

1030 R$=INKEY» 

1040 IF Rf*CHR*<30'- THEN 240 ELSE !010 

1050 IF STRIG<0>=0 THEN PSETCX2. Y2 - . P 



£010 PRINT "ecran ou trace CE ou T):"; 
2028 R«=INPUT»U> 

2039 IF R*0*E" AND R«v>-T" THEN PLAY "A 
1O)M)-:GOTO2900 

2040 IF RJ*"E- THEN 2080 

£050 PRINT: INPUT"Entrez la couleur < de - 

8 a 7>:-;C0ULEUR 

2060 IF COULEUR' -8 OR COULEUR >7 OR COUL 

£UR< >INT<COULEUR> THEN PLAY *A10inl - : GOT 

02050 

2079 CP=COULEUR:GOT0 240 

2080 PRINT: INPUT -Entre: le fond et le t 
our !";F0ND, CADRE 

2090 CONSOLE0,24:SCPFEN . FOND. CADRE: CONS 
0LE24:G0T0 240 

2099 ' 

2100 ' CARRES 

2101 ' 

2110 CR=0 

2120 IF STRIG<0>=-ITHENIFCR=1THENBOX<XI, 
Yl >-*X2,Y2>,CP:CR=0:P=POINTi;X2*l,Y2*I >:X 



2=X2+l!Y2»Y2+l:G0T02123: ELSEBEEP: Xlex2!Y 

1»Y2:CP-UFP-1 

2123 IF STRIG<0) — 1 THEN 2123 

2125 A-STICK(0) 

2130 IF A<>8 THEN 2160 

2140 Pt=INKEYf 

2145 IF R*«CHR«<29> THEN PSETtXl , Yl ),P2: 

CR-01FP-0 

2150 IF Rt-CHRS<30> THEN 240 ELSE 2120 

2160 PSET(X2,Y2>,P 

£170 ON A COSUB 5000.5010,5020,5038,5840 

.5850,5060,5070 

2260 P-P0INT<X2,Y2> 

2265 IF FP"0 THEN P2-P1 

2270 PSET<X2,Y2),CP 

2280 IF CR»1 THEN PSET<X1 , Yl ), CP 

2290 GOTO 2120 

2299 ' 

2360 ' CARRES PLEINS 

2381 ' 

2320 IF STRIGt8> — 1THENI#TRMTHENB0XF<X1 

,Y1)-(X2,Y2>,CP:CR»0:P«POINT<X2*1.Y2*1>: 

X2-X2*l :Y2»Y2*1 ! C0T02323! ELSEBEEP: XI »X2! 

Yl-Y2iCR-i:FP-l 

£323 IF STRIC<0>— I THEN 2323 

2325 A=STICK(8) 

2330 IF A<>8 THEM 2368 

2340 R*»INKEY« 

£345 IF P«»CHR*<29:' THEN PSETf XI , Yl >,P2: 

£750 IF PI=CHP$.30' THEN 240 ELSE 2320 

£360 PSET(X2,Y2).P 

2370 ON A GOSUB 5006,5010,5026,5838,5040 

,5050,5060,5878 

2460 P=P0INT<X2,Y2) 

2465 IF FP=0 THEN P2=P1 

2470 PSETCX2,Y2),CP 

£480 IF CR-1 THEN PSET(X1 , Yl ), CP 

£490 GOTO 2320 

2499 ' 

2500 ' RONDS 

2501 ' 

2510 RO=0 

2520 IF STRIG(0)=-1THENIFRO=1THENGOSUB27 

00:PSET<Xl,Yl>,P2:RO=0:P=POINT<X2+t,Y2*l 

> : X2-X2+ 1 : Y2=Y2+ 1 : GOT02523: ELSEBEEP: X 1 =X 

2:Yl=Y2:RO=i:FP=l 

2523 IF STRIG<0>=-1 THEN 2523 

2525 A-STICK<6> 

2536 IF A06 THEN 2568 

2540 Rt*INKEY* 

2545 IF R*»CHR»(29' THEN PSET. XI . Yl >.P2: 

R0*6:FP=8 

2550 IF R*«CHR*<30; THEN £40 ELSE 2520 

2560 PSET<X2,Y2),P 

2570 ON A GOSUB 5006.5010.5020.5033.5940 

.5050.5060,5070 

2660 P-P0INT(X2,Y2J 

2665 IF FP«1 THEN P2=P 

2670 PSET(X2,Y2),CP 

2680 IF RO-1 THEN PSET(X1 , Yl ), CP 

2690 GOTO £5£0 

£700 PP=6:R=ABSc;>;2-Xl > : X6=X1 : Y0=Y 1 

2702 FOR K=l TO 2 

2710 FOR Z—R TO R:Y=Y0+2 

2720 X=S0R<R*R-Z*Z> 

2725 IF K»l THEN PR1-X0*X ELSE PR1=X0-X 

2726 IF PP=0 THEN IF <Y>0 AND PR1>0) THE 
N PSET(PRl,Y),CP:PP=i:ELSE GOTO £740 
2730 LINE-<PR1,Y),CP 

£740 NEXT Z 

2743 PP=0 

£745 NEXT K 

2750 PLAY ■A101L5niO£HI03NI04riI-:PETURN 

£760 • 

2799 ' 

2800 ' RONDS PLEINS 

2561 ' 

£810 RO=0 

28£0 IF STRIGi.9 ' = - 1 THENIFR0=1 THENGOSUB30 

80:RO=e:P=POINTrX2+l,Y2+l>:X2=X2+i:Y2=Y2 

»i:GOT02823: ELSEBEEP: Xl=X£!Yl=Y2:R0=i:FP 

*1 

2823 IF STRIGt6>=-l THEN 2823 

2325 A=STICK(6> 

2636 IF A<>8 THEN 2866 

2840 Rf=INKEYI 

2845 IF Rl-CHR*i29.' THEN PSET< XI . V 1 ■ . P2: 

RO=6:FP=0 

2356 IF RS=CHRft30< THEN £40 ELSE 2326 

2860 PSET<X2,Y2>,P 

£878 ON A GOSUB 5000. 5010. 50£0, 5030, 5646 

,5050.5060,5670 

2960 P-P0INT(X2,Y2^ 

2965 IF FP»0 THEN P2=P1 

2970 PSET(X2,Y2>,CP 

2980 IF R0=1 THEN PSET< XI , Yl >, CP 

2990 GOTO 2020 

3000 R=ABS(X£-Xr:X0=Xi:Ye=Yl 

3010 FOR Z=-R TO R:Y=Y0+Z 

30£0 X=S0R<R*R-Z*Z- 

39£5 IF Y<0 THEN 3040 

3026 IF X0-X<-0 THEN LINE > 0. Y ' -- X0*X. '. ■, 



CApAt-f 



CP:GOT0 3040 

3030 LlNE<'X0*-X,Y)-<'X0-X,Y>,CP 

3648 NEXT Z 

3050 PLAY ■A1L501MI02MI03MI04HI-:RETURN 

3066 ' 

3699 ' 

3100 * REMPLISSAGE 

3101 ' 

3110 INPUT 'Couleur (de -0 a 7> :';C0ULE 
UR:CP*COULEUR 

3120 IF C0ULEUR<-8 OR C0ULEUR>7 OR COULE 
UR.; INTiCOULEUR> THEN PLAY "A101HI * : GOTO 

3100 
31£1 INPUT , <P)lt:n ou (T)r*»« :*;R* 
3122 IF R»»"P'THENRP"1ELSEIFR**-T-THENRP 
■ 0ELSEPLAY'DOt!ISODOf i G0T03121 

3125 IF COULEUR<0 THEN C0ULEUR*C0ULEUR*2 
56 

3126 POKE fcHBFFB, COULEUR 
31£7 POKE iHBFFA,RP 
3130 A=STICK<0> 

3140 IF AO0 THEN 3190 

3145 IF STRIG(0>— 1 THEN GOSUB 3320 

3150 R»-INKEY« 

3160 IF R«-CHR((36) THEN 246 

3176 IF Rf-CHR)<32> THEN 3166 

3196 GOTO 3136 

3196 IF STRIG<0>=-1 THEN GOSUB 3320 

3195 PSET(X2,Y2),P 

3208 ON A COSUB 5808, 581 8, 582B, 5B38, 5840 

,5050,5068,5676 

3290 P-P0INT(X2,Y2> 

3366 PSET<X2,Y2),CP 

3310 GOTO 3130 

3320 AX=X2»256:KK=256*AXiP0K£ iHBFFC.AX! 
POKE 4HBFFD,X2-KK 

3321 AY«Y2S256:KK=£56*AY!P0KE tHBFFE,AY! 
POKE IH8FFF,Y2-KK 

3322 EXEC &HBF71 

3323 IF C0ULEUP> 190 THEN COULEUR*COULEUR 
-256 

3324 IFRP-lTHENP-C0ULEURiPSET(X2,Y2>,piR 
ETURN 

3325 IF<X2+Y2)/2OINTC(X2*Y2)/2)THENP«C0 
ULEURtPSET(X2,Y2>,P:RETURNELSERETURN 
3440 ' 

3560 ' COPIE D'UNE ZONE DE L'ECRAN 

3561 » 

3510 CZ=0 

3520 A«STICK<0> 

3530 IF AO0 THEN 3580 

3546 RS=INKEYS 

3558 IF R«*CHRf(36) THEN 240 

3560 IF R*=CHR*<29> THEN PSETCCX1,CY1 >,Z 

i:PSET<CX2,CY2>,22:GOTO 3500 

3566 IF STRIG(8)=-1 THEN IF CZ=2 THEN GO 

SUB 376e:G0T03566:ELSE IF CZ=1 THEN BEEP 

=CX2=X2:CY2=Y2:CZ=£:Z£=P:G0T0357i:ELSEBE 

EP:CX1=X£!CYI=Y£:CZ=1:Z1=P:GOT03571 

3571 IF STRIGC0)=-1 THEN 3571 

3575 GOTO 35£6 

3586 PSET CX2,Y2J,P 

3585 ON A GOSUB 5000.5818,5020,5030,5040 

.5656,5666,5870 

3670 P=PQINT(X2,Y2> 

3630 PSET<X2,Y2).CP 

3695 IF CZ-I THEN PSET (CXI.CY1>,CP 
3686 IF CZ-2 THEN PSET iCX2,CY2),CP 

3696 GOTO 3526 

3700 PSET (CXl,CYl>,Zi:PSET<;CX2,CY2),Z2 
3765 IF CXDCX2 OR CY1>CY2 THEN PRINT "E 
RPEUR DANS LE PLACEMENT DES PTS';:PLAY " 
A101L2DOt1IS0DOriISODONI':Rf=INPUTS(] >:PRI 
NT: RETURN 

3709 AX=CX1S256:KK=256*AX!P0KE *H8FF0,AX 
:P0KE tHBFFl,CXl-KK:POKE (.HBFFC, AX:P0KE 
tHBFFD,CXt-KK 

3710 AX=X2a256:KK=256«A'x:P0KE tHBFFS.AX: 
POKE tHBFF9,X2-KK SPOKE IHBFFE, AXiPQKE 1H 
BFFF,X2-KK 

3720 AX=CX23256:KK=256*AX:POKE tHBFF4,AX 

:P0KE fcHBFF5,CX2-KK 

3730 AY"=CY18256:KK=256*AY:P0KE 4HBFF2,AY 

:P0KE t.HBFF3,CYI-k:K 

3740 AY=CY23£56:KK=256*AY:P0KE 4HBFF&.AY 

:PDfE fcHBFF7,CY2-KK 

3750 AY=Y23256:KK=256*AY:P0KE IHBFFA,AY: 

POKE tHBFFB,Y2-KK 

3755 EXEC tHBF00 

3760 PLAY , 'A101L5HIO£liI03HI04f1I-: RETURN 

3799 ' 

3866 ' ECRITURE A L'ECRAN 

3801 ' 

3685 LOCATE0,25i INPUT "Couleur Uettre, f 

ond)i";L,C0 

3016 IF L<6 OR L>7 OR C<6 OR C>7 THEN PL 

AY "AlL240H1ini":G0T038I6 

3020 COLOR L,C&:LOCATE 0,0 

3330 ft*=INPUT$( i - 

3846 IF R*=CHRS<2' THEN GOTO 3866 
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CRAZY SQUASH 



/MOPf <*. l'i- E5T) 
UWS MOST" 
^i 



C'est une histoire de cornichon qui doit renvoyer des 
pommes sur des tas de trues, c'est rapide, joli. les 
bruits sont rigolos, bref c'est super ! 

J. Pierre MARQUE 



SUITE DU N 78 

3110 KK-16064 REM *»* CERISES **# 
31 20 FORR«0TO62 REflCE POKEKK*P, E NEXT 
3130 DRTR0. 1.e0.e.5.t"4.e.21.64.0.21,0.0 
3140 PP.TR200.0.84.0, 1.69. 0.5.4.0.4.5.0 
3150 DRTR42. 1.64. 170. 120. 64 -170. 130. 160 
3160 DBTR170, 138. 168. 170, 138, 168, 178 
3170 DRTfll38,168. 170,138,168.42,10. 168 
3180 DRTR8.10, 168.0.2. 160.0.0. 128 ,0.0.0 
3190 KK=16128REN •»» BflNRNE *»« 
3200 FOPP-0TO62 RERDE P0KEKK*R . E ■ NEXT 
3210 DRTR80 ■ . 88 . ■ ■ 84 . . 0, 36 ■ 0, 
3228 DRTR40.0.0-42, 128,8,42, 128,0 
3230 DRTR8. 160.0. 10 168,8,2. 168,8 
3248 DRTR2.170, 138.0. 162.170.0.40.40,0 
3250 DRTR42, 160,8.10, 128.0.0,0.0.0.0,0 
3260 D0TR0, 0.0. 0.0. 0.0. 0.0. 0.8 
3270 KK-16192-PEM **♦ BOUQIE *** 
3280 FCIPR=8T062 PERDE POKEKK'P . E NEXT 
3290 IIRTR0, 0,192. 03. 192, 8. 15. 192,0- 15 
3300 CRTR0. 0,15. 0,0. 12, 0,0, 8. 0,0, 42 
3310 DRTR8, 8. 170, 0,0, 170, 0,0, 42, 0,0.42 
3320 DRTR129.0 42, 128-0.42. 128.0.42 
3330 DRTR0, 4 42. 0.17. 42. 0,1?, 42, 0.21. 42 
3340 DRTR0.5. 106.84. 1,85.80 
3350 KK-16256^REM ••* OPRNGE *»* 
3360 FOPP=0TO62 ' PERDE ■ POKEKK+P. E : NEXT 
3378 BRTR0.0. 64.0.1. 80.0.5.0,0.20,0.0 
3380 BRTR154.0.2, 170, 128, 10, 178, 160. 10 
3390 DRTR170, 160.42, 178, 168 
3408 DRTR42, 170. 168.42, 170. 168 
3418 DRTR42, 178. 168,42. 178. 168 
3420 DRTR42170168,42,170,168 
3430 DRTR42. 178. 163, 18 ,178, 168. 18. 178 

3449 DRTR160.2, 166, 128.8, 134.0.0,0,0 

3450 KK-832 PEM *** POMME »** 

3460 F0PP=0TO62 : PERDE : POKEKK+P. E ! NEXT 

3470 DRTR0,0,0.0.0.0.0.0,0 

3480 DRTR0,0.0.0,0.0,0,0,0 

3490 DRTR0, 0.64. 0.8. 128. 0.0. 128 

3500 DRTR0.0, 128,0, 14,56.0,31.252 

3510 DRTR0. 63, 254,0, 127,255,0, 127,255 

3520 DRTR0. 127. 255-0, 127,235-0,63,254 

3530 DRTR0 31 -252,8 13,248.0,3,224,0 

3540 REI1 «** COPNICHON **» 

3550 F0PR=896T0935 : POKER - : NEXT 

3560 FORR=935T0959 PERDE - POKER, E NEXT 

3570 FORP-960TO1089 POKEP.0:NEXT 

3380 FORR=1810TO1023 RERDE POKER. E ' NEXT 

3590 PEM ♦++ 1EPE MOITIE +++ 

3608 DRTR56.0-0,92,0,0.247.0,0, 191,8-0, 

237,0,0, 127. 0,0, 31. 0,0. 3. e.e 

3610 PEM +++ 2E MOITIE +++ 

3620 DRTR224.0.0 188.8.9.234,8 8,219.0- 




edito 



0. 254,0 

3639 KK-16320 PEM •*» HPfllGNEE *** 

3640 FQPP=0TO62 PERDE POKEKK+P . E : NEXT 

3659 DflTF.24, 9.24 43,24.12.96,126,6,63. 
255/130,67,255. 194 .99- 139- 198,35,60, 196 

3660 DRTR163. 126, 197, 163,60- 197,179-199, 
205, 153 ■ 255 . 153 - 204 . 1 26 • 51 , 102 ■ 69 1 02 
3670 DRTR59 ■ 255 ■ 220 , 15.255,240, 127.219, 
254 , 79 , 255 , 242 , 2 1 6 ■ 66 , 27 , 48 . 1 02 , 1 2 . 96 , 
3680 DRTH6, 120,0,30 

3630 RETURN 

4000 REM *** PATIENCE i *#* 

4010 SVS58692 P0KE214,5 

4020 PPINTTRB<12-- m biun INSTANT. SVP' " 

4040 PPINTTRB<9V'iwrHRPi?EriENT DES DRTRS" 

4050 PPlNTTRBf 15>"«N COURS. . . " 

4060 RETURN 

4070 REM *»* UN PEU DE TOUT **# 

4072 POKE2041, 14 P0KE2842, 15 POKE2O43.250 

4073 POKE2040, 1 3 POKE2044 , 255 POKEV+7 . 80 

4074 P0KE53276, 8 P0KE53285. 5 : P0KE53286 . 
7P0KEV+43.-7 

4075 PQKEV+39 ,10 POKEV+40, 5 POKEV+4 1 , 
4080 PEU *»* C'EST LE PESTE *** 
4085 P0KEC.9 POKEC+1 , 4SVS58692 

4090 P0KE54292242 P0KE54290.21 POKE542H3 

21 ' POKE54280 . 8 P0KE54279 ■ ■ P0KE54284 . 

4100 F0PP»47T069 POKEfl+R. 160-POKEB+R.4 

4110 NEXT: POKEV+2. 172 

4120 PORP=47TO919STEP40 POKER+R, 160 

4130 P0KEB+P,4 P0KEP.+P+22. 160 

4140 PDKEB+P+22- 4 NEXT POKEV+3 - 190 : POKEC+1 

: POKEV+4 . 1 72 POKEV+5 .190 POKEK , 5 

4158 RETURN 

5000 PEM *** FIOPITUPES *#* 

5010 FORP=1TO3000NEXT 

5015 SYS5S692 P0KE53276.31 

5020 FORP»0TO8STEP2 POKEV+P. 100 NEXT 

5030 F0PP=1T09STEP2 POKEV+P . 16*P+60 : NEXT 

5040 FOPP=250TO255 POKE2040+ IN . P 

5050 IN-IN+1 NEXT IN=0 

5055 POKEV+39.6 POKEV+40. 2 POKEV+4 1 . 

7 POKEV+42 . 1 POKEV+43 , 8 ■ POKEV+44 . 7 

5060 fl=1024 B*55296 

070 FOPP=0TO4 FOPT=1TO500 NEXT 
5088 POKEV+21 .219 NEXT 
5O90 POKEV+21. 63 POKEK. 10 
5095 FPINTTflB<7)"«B0NU? DE 208 POINTS " 

SVS38726 

100 PPINTTFifc- 15 '"SmWiniLOCHE" 

110 PPINTTRP''I5vn«««CEPrSE^" 

120 PPINTTRB''15'"rTO0IIBflNRNE" 

130 PPINTTRE' ^"WWWBOUC-IE" 



JlBFl" 
ASF 3" 



5140 PPINTTRBn5V;»l»WPPRNI?E" 

5150 POKEV+10.243 UH=43 : U=l : M=66 

5160 P0KE29+R+5*W.M 

5170 P0KE29+B+5*W-5 U=W+5*U 

5190 F0PP=1T08 WU=UU+U POKEV+ll.WU NEXT 

5185 IFW>-=150THENU=-UM-32 

5190 IFU>«1THEN5160 

5200 FOPR=1TO3000 NEXT POKEK, 5 

5218 SVS59692I»31 

5220 FOPP=4TO0STEP-1 FORT" 1TO500- NEXT 

5230 POKEV+21, I I=I-2TR.NEXT 

5240 FOPP= 1 TO500 NEXT : POKEV+21 , 

5260 PRINTTRB(10>"«IBPOUP JOUER: 

5280 PPINTTflB<10>"WINSTPUCTIONS 

5290 TI*="00000O" PETURN 

6000 PEM *** PPESENTRTION •** 

6010 P0KEC6 POKEC+1. 6 SVS58692 

6020 PEM 

6030 PESTORE FORP=1TO140 

6040 PERDE POKER+E . 1 60 POKEB+E , 6 : NEXT 

6050 POKEC0 POKEC+I.0 

6060 FORP=1TO1000NEXT 

6070 P0KE214. 16 PPINTTAB<8> 

"■IPP.P JERN-PIEPPE MRPQUE" 

6080 CI -699 ■ FORP-698TO709 POKEB+P - 5 

6090 POKEB+C1.5 FOPT=0TO18 NEXT 

6100 C1=C1-1 NEXT 

6110 FORP«1TO2008 NEXT RETURN 

6500 REM *## INSTRUCTIONS *** 

6505 GOSUB6000 

6510 SVS58692 P0KE646. 7 : GOSUB4070 

6528 PPINTTRBO4>"«INSTRUCTI0NS" : 

PPINTTRB-:14V' " 

6530 PPINT"Xn VOUS ETES UN CORNICHON 

( )" 
6540 PRINT M «IET DEVE2 RENVOVEP UNE POMME 



' 



)" 



6550 PRINT"** EN EVITRNT 

DE VOUS FRIRE DEVOPER" 

6560 PRINTTRBa5V'lWPnp ."OOSUB4070 

6565 PPIHT"«B1 ROUP VOUS DEPLRCEP : 

wn ETM >S. " 

6570 POKEV+21 . 23 POKEV, 248 POKEV+1 , 

93 POKEV+2. 248 POKEV+3. 66 i POKEV+4, 243 

6580 POKEV+3. 66 POKEV+8.175 POKEV+9, 143 

6590 PPINTTRB(ll'"WBaJTRPEZ UNE TOUCHEII" 

6600 IFPEEKr203>*64THEH6600 

6610 POKEV+21. SV553692 GOSUB5260 

OOTO2130 
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ASTROLOGIE 



Passionnets de sciences divinatoires, sachez ce que 
vous reserve les lendemains qui chantent. 



PC1500 



Eric BAELDE 



Mode d'emploi ; 
Dans le programme. 

l.REM ASTROLOfilL 
2: REM L"R1C 

BflFLDt 
5.TEXT -CSJ2E J: 

COLOR 0.O1M M( 

!!>, P(10) 
J- INPUT ' NOP ■ " 

;N», '*Prenorn » 

"jP*:LPRJNI "N 

OM : ";n*^ 

LPRINI 'Pr-pnom 

■■ ; p* 

!0:OEGR£.'E :Uft]T 
:CLS --PR3NT 'J 
our :": CURSOR 
B. INPUT JR: IF 
JROJNT JROR J 
R<!OR JR>31 
GOTO J0 

20.CLS ."PRJNT 'Mo 
:s : .CURSOR 8 
: INPUT nS*:iS= 
UflL MS*: IF MS= 
0LET ftt^MSi: 
GOSUB 'M":MS*= 

30; IF MSOINT MS 
OR MSOOR MSJJ 
2G0T0 20 

<0: GOSUB "N 

50:CLS :PR1NT ' fin 
nee :-:CURSOR 
8: INPUT W- !F 
ONOJNT PNGOTO 
50 

60:CLS :PR1NT 
urc (HH.nriSS) 
'".CURSOR }?. 
INPUT HR. !F H 
<0OR HR>21G0T 





He 



60 
70: IF 100*(HR-JNT 

HR>>60GOTO 60 
80:1F 100tC]06*HR 
-INT (100*HR>> 
>60GOTO 60 
90:GOSUB "O'-.-N^-DT 
-69-1325:fi^DT;C 
=7: GOSUB "fl".'S 
fl^fl: GOSUB "S 
'.00. CLS : INPUT 'Oc 
calage SOLt'JUC 
HJ ■ r, ;0 
11B: INPUT "Ui I In = 
" ;U*;GOSJB ''L 

nT 

!20:N^N-D^24:C--2<i: 
E=23750.3'236. 
555362*N:f.^E/3 

600: GOSUB "R": 
rp=o:fi^E':E^DCG 
U^15 

!25:fl;--p.^3600^DCG H 
R-D+E: GOSUB '"A 

130. rS^A:C=360: 
U01T 0;PRJNT 
OMS TS 

M0.LPRJNT "Ne a " 
;Ut:LPRJNT "Lo 
ns i tudc : " ; ABS 
U; :R,*^" Est'' : 
IF U<0LCT At------ 

Ouesi 

!50:LPRJNT fl*: 

LPR1NT ''Lot itu 
de :"iOBS U; ■■ fl 
*-='' Nord-'; IF U 
<0LET At- 1 ' Sud 

160:LPRJNT fl*. 

LPRJNT ''Le " ; ? 



nt;jR;" 'jlSt, 
ON: LPRJNT ''0 " 
:HR:LPRJNT ' TS 

-"iDMS TA: 
LPRJNT ''Dec : " 

;ons E 

16S:LPRJNT 'TSE = 
"JDMS TS 

170: GRAPH : 

GLCURSOR U07, 
-J07):SORGN 

180. CLS : INPUT "He 
une ouani TSE 
^";T*:DT=DEG 
UAL T*: IF T*=" 
*"G0T0 288 

190; INPUT -Heure o 
ores TSE =";T: 
OS-OEG T-OT:DD 
=TS-DT 

200; COLOR 2: 

RESTORE "MM": 
POR I^JTO 3. 
READ A* 

210:CLS :PRJNT "Ma 
■sen "iA*j ' a^ 
ont "i : INPUT J 
t; GOSUB "KK"; 
IF J*="PJEN" 
GOTO 210 

220:H*^J*:H=J;CLS 
:PRJNT "Maison 
"; A*; ' apr-es 
'; : INPUT J*. 
GOSUB "KK":IF 
Jt="RJEN"GOTO 
220 

230:MU-J J=DD*CJ-H 
l^DS+H: GOSUB " 
Ttr':A=rUI-l >+l 



80: GOSUB "A"; J 
^A:M(I+5J=J: 
READ A*: GOSUB 
"TrV'-NEXT 1 

?40:POR J^J0TO 12: 
READ A* 

250;CLS :PR1NT "Ma 
'■son "jA*i " av 
ant ";: INPUT J 
t; GOSUB "KK": 
IF J*----RIEN" 
GOTO 2S0 

760:H*^J*:H=J.-CLS 
• PRINT "flalson 

'•;: INPUT J*: 
G0SU8 "KK": IF 
J*="R1£N"G0T0 
220 

270:M<! -]>=DD*U-H 
VOS+H: GOSUB ' 
r li":A=M<J-]> + l 
80:GOSUB "A": J 
=A:M(] -7)=J: 
REAO fi*'- GOSUB 
"TM":NEXT I 

280:A-^!7. 9-. 61652a 
8*N: GOSUB H' : : 
L^J34*C0S A+1S 
*<*COS B->69*C0S 
CC+13*C0S 0+28 
*COS E-*S7*C0S 
F+49*C0 

290. COLOR 0: 

GLCURSOR (107, 



J28i 
330: 



0J.-1--OR 



H : .■ i 



360STCP 10: 
LJNE -C107*COS 
1, 107»SJN J.^.' 
NEXT 1 



GLCURSOR C70, 8 
KFOR I--10TO 3 
60STCP 10. LINE 
-(70»:COS J, 70* 
SJN 1J:NEXT I 
GL CURSOR (50,0 
j:FOR I -0TO 3 
60STEP ID.'LJNE 
-<50*CQS 1,50* 
SIN 1):NEXT I 
CQR I-0TO 355 
STEP 5 

IF I = 1NT (U30 
)*30L1NE (50* 
COS ],50*SJN I 
1-(70*COS I, 70 
*SIN 1):NEXT I 
:GOT0 358 

:L!NE C50*COS I 
, 50*SJN J>-(55 
*COS l, c i51tSlH 
1>:NEXT 1 

: 1=M(8KQ=180- 
JNf C1^38>*30: 
1=!+Q: J=]+!80: 
LINE (50*COS J 
. 50TSJN J)-(50 
*COS ],58*SIN 
l> 

:A=1N1 (n<8J^30 
?*30-<!80:C=360 
: GOSUB "A'^tr^.- 



370:B*=-SO": 

RESTORE B«:C=3 
60: t=Nv 36525. 
READ X, v, ?:A=X 



>Y*N+ZTT*T: 
GOSUB "A-JL^A: 
LS=L 

371: READ X, V, Z:A=X 
tY*N+Z*T*T: 
GOSUB ■'A":w=A: 
A-=L-Ui: GOSUB "A 
"if1--=AiMS=A:U-ri 

37?:REAO X, v, Z:EJ = 
X-Y*T-Z*T*T:EE 
-E 1*1 80' Jl 

373:U=n+EE*SJN Ur 
IF UOULET U=U 
:GOTO 373 

374:u.^2*0TN UAN ( 

(J -E1J)> 

375 tA-^306+ 1.233059 
6*N;G0SUB "A": 
B=A:A---:]]5.9+.2 
47^533*N: GOSUB 
"A";CC=0:A=222 
. 1 + .85B5J3*N 

:i76:G0SUB "A";D---At 
A=!99. 2~. 12161 
1*N:G0SUB "A".* 
E.=A;A-v38.3*.92 
3J5S9*NiG0SUB 
•■A"!F=-'A 

377: A-256.0-, 062^-1 
22*N:S0SUB 'A' 
:G=Ai 0=281.6+ 
9025J6J*N; 
GOSUB »A":H=A. 
A=7.6-.0B30856 
*N 
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Une gigantesque lueur blanche a 
eclate derriere mes yeux. longtemps 
le bruit de la detonation a resonng 
dans ma tete Puis le calme est re- 
venu. plus de sons, plus de lu- 
miere, plus de perception, j'avais 
1'impression de tomber dans un im- 
mense cylindee noir. mais sans ma- 
laise m vertige Combien de temps 
ma chute a-t-elle dure ? Je ne sau- 
rais le dire aujourd'hui. Je ne me 
souviens que de fort peu de details 
de ce passage dans ce que I'on ap- 
peile ici 'I'autre monde', c'est une 
experience dont on ne tire pas d'en- 
seignement : tout se passe dans un 
etat comateux proche de I'ivresse 
alcoolique. 

Le sduvenir des quelques instants 
qui ont im media! em ent suivi cette 
descente est. par contre. beaucoup 
plus precis : )e n'avais plus cons- 
cience de mon corps {mais avais-|8 
encore un corps ?) et le cylindre 
avait disparu, la luminosity am- 
biante faisait penser a celle des 
soirs d ete ou on se demande 
comment il peut encore (aire jour 
alors que la soiree est si avance'e. II 
me semble que j'entendais une mu- 
sique au loin, une melopee agreable 
mats ni antique ni niaise. plutflt 
du Rock En tout cas. c'est une 
guitare electnque qui revenait le 
plus souvent, peut-etre Jimi Hen- 
dtix. mais ga je ne peux I'affirmer. 
Et c'est la qu il s'est approche de 
moi. Une etrange aura multicolore 
scintiilait autour de sa longue toge 
blanche, ses cheveux longs et sa 
barbe courte ne pouvaient pas ne 
pas (aire penser au Christ Et c'est 
evidemment ce que j'ai pense 
quand il s'est approche de moi et 
qu'il ma adresse la parole en ces 
termes : "Gerard, tu sais que c'esl 
interdit. Tu sais que le suicide est 
un crime et que mon Pere ne peut 
accepter cette renonciation. 
Comment peux-tu esp6rer t'asseoir 
un |our a la droite de Dieu si tu 
laisses tomber tes fipreuves terres- 
tres avant la fin de la premiere mi- 
temps'. Je me souviens alors de lui 
avoir repondu :' Vous savez, Sei- 
gneur, etre assis a droite ou a gau- 
che, par les temps qui courrent 

J'al jete leponge parce justement je 
fatiguais et j'avais une incommen- 
surable envie de dormir Faire un 
hebdo. .c'est pas de la tarte. Je 
n'aurais jamais du choisir un par- 
cours pared pour cette vie. J'al prfl- 
fere repartir a zero avec un nouvel 
essai" Pas vraiment content, le 
Seigneur 'Mais, |e reve 1 Non seu- 
lement il se prend un handicap pour 
gagner un maximum de points, 
mais en plus ii se choisit un journal 
et hebdo. par-dessus le marche.Et a 
la premiere petite fatigue, Mossieur 
se tire une bade dans la tete, Iran- 
quilie Dodo, je laisse tomber. Mais 
tu sais que tu vas te retrouver en 
Enfer. mon petit bonhomme, et vite 
tait. Et. pour t'apprendre a vivre 
jusqu'au bout, je te taxe de 20 
points sur tes anciennes vies et tu 
te prends un carton jaune !*. La, 
j'ai commence a paniquer : me (aire 
engueuier, d'accord- Perdre 20 
points, okay, encore que ga repre- 
sente la totalite de ma vie sous la 
revolution frangaise plus celle chez 
les Azteques. Mais le carton jaune, 
dur ! j'ai essaye de baratiner : 
'Non, soyez sympa, Seigneur, pas 
le carton jaune. Tout, mais pas ga. 
Je vous promets de' m'amen- 

der *. Mais, rien a faire, il est 

reste imperturbable, il a lait appellor 
Pierre et il s'appretait a signer les 
ordres de sanction quand je me 
suis apergu que Pierre etait en train 
d'enregistrer mon entr(ie en Enfer 
sur un ordinateur ! L'air de rien. je 
me suis approche de la machine et 
j'ai engage la conversation avec lui. 
on a parte de fichiers. de memoire 
de masse et de la lenteur avec la- 
queiie I'ordinateur faisait ses tris al- 
phabetiques : plus dune heure pour 
verifier si un autre Gerard Ceccaldi 
n etait pas deja sur les listes ! II a 
ensuite ete tres facile de negocier : 
'J'ecris un programme de In rapide 
et on laisse tomber le carton jaune ! 
*. Jesus a un peu rouspete pour la» 
forme mais, pousse par Pierre, il a 
tres vite accepte de transformer ma 
peine 'D'accord. je te sauve la 
mise pour cette fois. Mais tu repars 
la oil tu tes arrete. pas question de 
repos. Je te fais un petit feed-back 
d'une semaine et tu recommences 
commeside rien n'etait". J'ai b^cle 
vite tait un in et je suis parti sans 
demander mon reste. Je ne me 
souviens plus du tout de la suite 
des evenements, je suppose que 
I'on a efface ma Ram pour ne pas 
que je devoile tout, lis ont du ou- 
tlier un fichier puisque je peux vous 
raconter tout ga. En tout cas me re- 
voiia. je ne suis plus mort : a vos 
claviers, bandes de mous du bout 
des doigts 

<3£r?iA/?o CECCAl-Of' 



EDITEUR MUSICAL 



MAIAWE 



f> V 1 SEKUEUfMEfiT 



Un tel programme, par ailleurs INDISPENSABLE a tout 
possesseur de MSX, enchantera vos oretlles et celles 
de vos voisins. 



8M')-v_ Joe PEUtf^W) 
" AM>«8(£ 



Philippe PAIR 



S(//rE DU N76 



24400 REST0RE3200:FORI-0TO33:READA 

S:VPOKEBASE< 71 •1600*1, UAL CkH**AS) 

'NEXT 

24300 PRINT* DESSIN OES ENVELOP 

PES-:L0CATE3,2*PRINT-Forr-BB • ncli 

•r9«r pour r*nouv»l»r 1**44 

24600 LOCATES, S:PRINTCHRS(200I ICHR 
*(201 1 I STRING* (3, CHR* (200) ) I * 0,1 
,2,3,9*:PRINT 

24700 print* " ( chrs (2001 i chr* ( 
2021 |str1ng*(3,chr*(z00> h " 4,3,6 
,f*:print 

24800 PRINT- -| CHR* (203) rCHRS( 
204 1 i STRING* (3, CHRS (203) I I * B*:PR 





I* 



46800 



*«#****-*( 



**#<»• 



29300 E-VAL(ES) : GOSUB33900 ' R*pp« 

6** nottt 
29400 C0L0R3, 1 : G0SUB1 7800: GO5UB206 



•3, 1 



KTJ , 



INT 

24900 PRINT* *|CHRS(200MCHR*( 

203) I STRINGS (3, CHR* (203) >t * D* 

23000 L0CATE3, 13:PRlNT*Fortft*s * at 

tat pirn*ntnt' SPRINT 

23100 PRINT- *|STRIN0S(5,CHR*( 

201) ) I- 8*:PRINT 

23200 PRINT- ■ | CHR* (206) I CHR*< 

203 ) t CHR* < 206 ) 1 CHR* ( 203 ) I CHR* 1 206 ) 

t* a-:print 

23300 print* * i string* (3, chr* i 

2021)1* c*:print 

23400 print* "chr* (2031 i chr* (2 

06) i chr* (203)1 chr* (206) | chr* (203) i 

* E* 

233O0 L0CATE2,23:PRINT-APPUrEZ 5UR 

UNE TOUCHE. . . *I :F0RI-0T0I2O:NEXT 
23600 A*-INKEY*: IFA*-**THENL0CATE2 
,23:PRINT5TR1NG*(27,CHRS(32> ) I : FOR 
I-OT090:NEXT:GOT02S300 
23700 SCREENO: COLORS, 1 : G0SUB1 7800! 
G0SUB206O0:RESTORE33OO:M0-NOTM0:GC 
T017100 

23900 'DEFINITION D'UNE CHAtNE 
26000 ' *•»* t*»«< m »«»»»» *** * *** 
26200 GOSUBS0BOO:L0CATE9, 19IPRINT- 
Nouvall* ch-lnc *,- -1C*!L0CATEC 
,20! INPUTC*: RETURN 
26400 'PLACEMENT DE LA CHAINE 
26300 '** ******************* « 
26700 M0--1:VP0KEPS,CA!F0RPC-1T0LE 
N(CS) :MS-MIDS(CS,PC, 1) IPS-BASE (0) • 
L*40*C:CA-VPEEK(PS> I G0SUB91O0: VPOK 
EPS, CA: NEXT : RETURN 

26900 ' INITIALISATION DES NOTES 
27000 ■ *«**««* **» ************** 

37300 Acs raw 

27300 forp-ot01s:readm*:fori-ot06: 

pps(P,d-h*:nexti,p 

27400 RETURN 

27600 'REINITIALISATION D'ECRANS 
27700 ' **** ********************* 
27900 CLS:C0L0R7,4!PRINT- REINITI 
ALISATION D'UN OU DE PLUSIEURS* , , , 
, TAB (16) I -ECRANS-, , .STRING* (40, CHR 
•(2231) 



302O0 F0RJ-0TO3STEP2:F0Rl-0T06:5-V 

AL(*ltH**PP*(INT(J/2>, I) ) :IFS-OTHEN 

336O0ELSERG (E , J , I ) -SM0D2S6: RG(E, J « 

1,II-S\236 

30300 NEXT I, J 

30300 'raglstr* 6 (perioda da brul 

30700 FORI-0TO6:S-VALC«<H-*PP»! 14, 

I) ) : IFS-0ANDINSTR(PP*(14,I> , *#*l >0 

THENRG!E,6, II -257: NEXTELSERG I E , 6, I 

I -s: NEXT 

309oO 'ragiatra 7 Inliagi) 

31100 F0RI-0TO6! AS-LEFT* (PPS (3, II, 

1)*LEFTS!PPS(4, I) , 1)+LEFTS(PPSI3, I 

I , 1>*RIGHTS (PPS I 3, I) ,1) 'RIGHTS! PPS 

<4,I) ,ll*RIGHTStPP*(3, I) ,1>**10- 

31200 IFINSTR(AS, "*r"l >OTHENRG IE, 7, 

I)-237:GOT03I400 

31300 RG!E,7,I)-0:FORJ-OT07:RGIE,7 

, I)-RG(E,7, I I *VAL(MID*(AS, J*l, lit* 

2"J: NEXT: RGIE, 7, I) -RGIE, 7, I I X0R253 

31400 NEXT 

31600 'r*9iilr« 8 a 10 laniplttud* 

31 BOO F0RJ-8T0I0:FORI«0TO6:S-VALl* 

".H'*PP*< J*l, 1) )*VALIPP*(J-2, I) >*2* 

4! IFINSTR(PPS(J.l, I)*PPSIJ-2,I),**r 

■I >0THENS-2S7 

31900 RGIE. J, II-S:NEXTI, J 

32100 'ragiatra* II at 12 (par tod* 

d * anval oppa) 
32300 F0RI-0T06: IFINSTR (PP*( 12, I) , 
■♦■1-OTHENRGIE, 11, I ) -VAL ( "l<H- *RIGH 
T*<PP*(12, I) ,2) I IRG(E, 12, D-VAL1-I. 
H-*LEFTS(PP*( 12, I) ,2) I : NEXTELSERO( 
E, II, I)-2S7:RG(E, 12, I I -237 INEXT 
32300 'rtgntrf 13 Itont anvalopp 

33760 EQHl=aiQiHlE ltiSiRifiiHul3.il, 

■*-)-0THENRG(E,13, I > -VAL ( -|cH- «PPS< 

13,11 ) :NEXTELSERG(E, 13, I 1-237; NEXT 

32900 ' t**p* 

33100 F0RI-0T06! J-VAL I **«■ *PP* 1 13, 

I) ) :RG(E, ii, i i -j:next 

3320O RETURN 

3340O 'control* char gamani. frtqutn 



33B0G 'mats* at amp I i tuda (ragiatra 

* B * 10) 

36000 FORI-0TO6:F0RJ»6T0a: A*»HEX*l 

RG(E.J*2,I)\16I : IFLEN!A*)»2THENPP* 

(J, 1 )-"#*: PPS I J *3, I)-*#":G0TO36Z00 

36100 PP*1 J, I)*A*:A**HEX*(RG(E, J'2 

, I I MODI 6) : IFLEN(A*I-3THENPP*( J*3, I 

>-***-ELSEPP*(J*3, I) -A* 

36200 NEXT J, I 

36400 'period* d'anwaloppa (ragitr 

a 11 at 12) 

36600 FORI-OT06:AS«HEXS(RG(E, 12,1) 

) :MS-HEXS(RG<E.ll, I ) ) :IFLEN(A*X2T 

HENAS-*0**A» 

367O0 IFLEN(HS) < 2THENM*- ■ ' +M* 

36800 IFLEN(H«)-3THENM*--****-:AS- 



37300 F0HI»0T06:AS-HEXS!RG(E, 13, I) 

I :IFLEN(AS)»3THENA*»-#* 

37400 PPSI13, II-AS:NEXT 

37600 'perioda da bruit (rtgntrt 

61 

37S00 FORI-OT06:AS-HEXS(RG(E,6,I) 1 

37900 IFLEN(AS) <2THENAS-'0"*AS 

38000 IFLEN(AS) -3THENA*-**** 

38100 PP*!14,I>-A* 

38200 NEXT 

38400 ' tamp* 

38600 FORI -0T06IAS-HEXS (RGIE, 14,11 

38700 IPLEN(ASl<4THENAS--0*tAS!G0T 

0387O0 

38800 PPS (13, I) -AS: NEXT 

38900 RETURN 

39200 ' * * 

39300 ' » FICHIERS * 

39400 ' * # 

39300 * ««»»*»*«*«*♦ 

39800 'ECRITURE SUR FICHIERS 

39900 ' **************** t I I I* 

40100 CLS:C0L0R1 , 2: PRINTSPC ! B) "ECR 

1TURE DES RESULTATB*, ,,,,,,,, ,,* 
Appuyar iur: pour:-,,, 



42100 AS-INKEY*: IFAS-*-THEN42100EL 

SE I FAS- - E ' THENRETURNELEENEX T 

42200 NEXTPIRETURN 

42400 'travail sur lapriunt* 

4260O 'SUPPRIMER LES*LPRINTCHR*(X) 

* SI AUTRE SU'EPSON OU STAR 

42700 CLS!L0CATE9, 10 : PRINT -IMPRESS 

ION EN COURS. . . ", , ,TAB(9I -CTRL-6T0 47200 M0T0R0FF : CLS: LOCATE 

P POUR ARRETER*:LPRlNTCHR*t271 »•**■ 'APPUYEZ SUR LA TOUCHE V0ULUE DU" 

*CHRC(4) *po) tea da caractar** far. ,," MAGNETOPHONE PUIS TAPEZ SUR 



470O0 M0TORON:CL6:L0CATE2, ll:PRIN' 
'REMBOBINEZ VOTRE CASSETTE JUSQUW 
LA*,,,* POSITION DESIREE PUIS Tap 
EZ SUR RETURN- 

47100 AS-INKEVS: IFASOCHRS1 13l THEN 
47100 

NT 



40200 PRINT- 
ur Ecru', ,, 
40300 PRINT- 




40400 PRINT* 
■ur Ca**atta", 

40300 PRINT* 




■ur Autra *lch 
40600 PRINT* 


* 


40700 G0SUB29700 



>19THEN28100 

28200 LOCATEO, 14: INPUT'Dai 

d'acran a ralnltil llfp'l J 

>19THEN28200 

28300 CLS:L0CATEB,6:PRINT-Voub da* 

I rat relnltiallaar-, , , TAB ( 13) * la* 

acrar.**] I| "a" U : L0CATE4, 13: PRINT *T 

ap*t C pour cantlnir votr* chsli' 

ICKRS(IO) ICHRS(IO) | * tapar una a 

utra toucha pour annulatlon* 

28400 as-inkey*! ifas-* 'then2b400el 

seifa*-*c-thenforp-itoj:rgip,o,oi- 

236: next: ife>-iande<-jtheng0sub269 

00 

28500 C0L0R3, 1 : G06UB1 7B0O: G0SUB206 

OO'HlBa *n placa acran 

28600 RETURN 

28800 ' CHANGEHENT D ' ECRAN 6 ac . 

28900 ' •+***»*#♦. *#**m, 

29100 CLS : COL OR 1 . 7: LOCATE 13. 10: PR I 

NT'RECONSTITUTION. ..*,,,* PAT 



33700 GOT030300 
339O0 ' RAPPEL DES NOTES 
l*r No 34000 ' *********** !■ I l » 

F J ( OOR J 34200 I FRG < E , , 0) -236THENRETURN ' on 
t I* tablaau a a»j* at* 



util iaa. 
34400 'firqufnot (raglatra I SI 

34600 forj-otosstep2:fori-oto6:a*- 
hexsirgie, j, i! i : 1fleniack2thena*- 
■ ■ *a*else i flen ( as) -3thenpps ( i nt ( j 

lit , II-****-;G0T034B00 

34700 PPS ( I NT ( J / 2 ) , 1 1 -hex* < RG ( £ , J » 

1,11) 'AS 

34800 NEXTI,J 

33000 'Bluagaa ( tonal i tas, brul tal 

33200 'attantton ordra tnvaraa das 



35300 FORI 

0R233) 

35400 IFLEN(ASK8THENAS> 

0354Q0 



06 : AS-B INS(RG<E,7,I)X 

as: GOT 



40B00 AS-INKEYS: IFAS---THEN40800 

40900 ONINSTRCEICA*,A*)GOSUB41200 

,42400,43700,44100 

41000 C0L0R3, t :GOSUB17800:GOSUB206 

OO: RETURN 

41100 ' 

41200 'travail iur acran 

41300 ' 

41400 M*-' Raglstra HH — > * 

MM - l> HEXA* 

41300 F0RP-0T019! IFRO (P,0, 0) -2S6TH 

EN42200 

41600 F0RJ-0T06:CLS:PRINTSPC(9I -ta 

bleau*ip; * note: ■)J»i,,, :fo 
ri-ot013: ifrgip, i , j i -2s7then41900 
41700 as-hexsirgip, i, j) ) : iflen(as) 
< 2thenas- ' * ' as 
41800 printusingmsi i , rg (p, i , j ) , as 

41900 NEXT:PRINT, , , , ■ Tasporlaatl 



" i RG 1 1 



1A, J) 



.nln 



2000 PRINT, , 



4280O MS-- Ragistra «N --> «■■ 
* L HEXA 

4 2900 f0rp-ot019:ifrg(p,o,oi-2s6th 

ennext:return 

430o0 f0rj-0t06:lprinttab(3i "table 

AU*|P| * NOTE*) **1 

43100 FORI-OT013: 1FRG(P, I , J I -237TH 

EN43400 

432O0 AS-HEXS(RG(P, I, J I I : IFLEN(AS) 

<2THENAS--0"*AS 

43300 LPftlNTUSINGMSI I , RG ( P , 1 , J I , AS 

43400 NEXTI;LPRINT:LPRINT- T*s 

por taatlon'tRGIP, 14, J I | ■ 60)naa 

■:lprint:nextj:nextp!lprint 

43300 RETURN 

43700 'travail iur caasatt* 

43900 GOSUB46700: IFAS-" A'THENRETUR 

NELSE44500 

441O0 'autra* -flchlar* 

44300 CLS:PRINT- AUTRES DISPOSIT 

IFS D'ENTREE-SORTIE" 

44400 L0CATE2, 10:PRINT*Tap*i la n D 

fi> du dtipo«UH (RS232: , . . , -iLOCAT 

E7, 13: INPUTMS: IFRIGM1* im«, !)•■>- : *T 

HENMS-MS*-: * 

4430O 0PENMSF0R0UTPUTAS1 : CLS: LOCAT 

E12,S:PRINT*TRAUAIL en cours... -:l 

0CATE1I, 1B:PRINT-FCTN-ST0P POUR AR 

RETER* 

44600 F0RP-0T0 19: LOCATE IB, ll:PRINT 

•ECRAN- IP: IFRG(P,0,0I-296TKEN44800 

ELSEPRINTNl.P 

44700 *=0RJ-0TO6:F0RI-0T014:PRINT*l 

,RG<P, I, J) :nexti, J 

44B00 NEXT: PRINT HI, CHR* I 261 ! CLOSE: 

RETURN 

449o0 ipleft*(m*,4)--cas: "thencls: 
locate7,io:print*travail epfectue- 

: BEEP: F0RI=lTO900: NEXT 

4S00O RETURN 

4320O 'LECTURES DE DONNEES A PARTI 

R I/O 

43300 ' »(HHHHr*)r*fHr*#frff#(Hr#* 



43300 CLS:PRINT* LECTURE 

DE D0NNEES-:L0CATE4,9:PRINT*C --) 
a parttr cuiftt* • , , , ■ A — > a 

partlr d'un autra Biipontit", ," 
autra touch* --> *nnul*tlDn- 

436O0 AS-INKEY*: IPAS---THEN43600 

45700 IFAS-*C*THENG0SUB46700ELSEIF 

AS--A-THEN46000ELSE41000 

43B00 MS-*CAS: * 

45900 IFAS--A-THEN41000ELSE46200 

460OO CLSSPRINT* AUTRES DISPOSIT 

IFS D'ENTREE-SORTIE* 

46100 PRINT* Tapai 1* nom du dl*pD 

• It I* (RS232: ,...': INPUT- 

IM*;IFRI8HT*(M*, DO* I *THENM*-M*<* 

46200 CLS:L0CATE1 1,7: PRINT -TRAVAIL 
EN COURS. . . -ILOCATEIO, IB: PR I NT -CT 
RL-BTOP POUR ARRETER-:OPENM*FDRINP 
UTAS1 

463O0 input*i,p: ifeofiiitkenclose: 

G0TO29300ELSEL0CATE16, 121 PR INT 'ECR 
AN* IP 

46400 f0rj-0to6:f0ri-ot014: inputh1 
,ro(P,i,J):nexti,j: ifeof( i i thenclo 

SE:GOT029300 

46300 GOT046300 

46700 ' ROUTINE MISE EN PLACE CASS 



47300 LOCATE10,2O:PRINT"TAPER A PO 
UR ANNULER":L0CATE8,22:PRINT-LES 

PERATIONS PRECEDENTES' 

47400 AS-INKEY*: IFASO'A- ANDAS< >CH 

RSU3ITHEN47400 

47S00 MS-'CAS: *:RETURN 

47700 ' ECOUTER LES SONS 

47800 ' **************** 

4B000 G0SUB3O800 

48100 LOCATES, 19: PRINT-premlar acr 

an * Jouar " IPRt STRINGS! 4 , CHRS (29 

lit: inputas:pr-valiasi : ifpr<oorpri 

19THEN48100 

48200 L0CATE6,21:PRINT'darnl*r acr 

an • jou*r * 1 DR) STRINGS ( 4 , CHRS! 29 

> ) I :INPUTAS:DR-VAL(AS) : I FDR . OORDR :■ 

19THEN48200 

4830O GOBUB30800:PRINT* *ppuy 



48400 

48300 

P-RG 

48600 

48700 

335! 

48800 



fors-prtodr 

forj-oto6:time-o:fori-otoi3: 
s, 1 , 3 i : ifp< >237thens0undi ,p 



TIME'TIMEM/6 
L0CATE9,2i:PRII 



49200 


IFTIME<ITHEN49000 


49300 


NEXT J, S 


49400 


FORI -Ci TGI 3: SOUND I .OINEX! 




G0SUB50BO0:PRINTX*: RETURN 


49700 


-TRAITEMENT DES ERREURS 


49800 


'■■«»*»« imnn»m«im 


50000 


RESTORE330O: CLOSE 



3O1O0 IF ERR-3ANDERL-48SOOTHENRESU 

MENEXT 

SOZOO IF ERR <> 19 AND ERR < 32 

EN ON ERRORGOTOOIERRORERL 

30300 CLSICOL0R4, 13: L0CATE1 1 , 8 

30400 PRINT-ERREUR SUR FICHIER* 

30300 L0CATE2,20:PRINT-appuyar I 

30600 A*-INKEY*:IFA*-*-THEN50600EL 

SEC0LOR3, 1 : RESUME 7. 

30800 'EFFACEMENT PARTIEL DU TABLE 

AU 

30900 ' tlllllll l il 

31100 LOCATEO, 19:PRINTSTRIN0SC 
CHRSI32) ) I :LOCATE0, 19:RETURN 
31300 'FIN DU TRAVAIL 
31400 ' «*( HH r*««»»»-i»» 

S1600 CLS:C0LOR 13,4,4 

31700 L0CATE13,7:PRINT-FIN DU TRAV 

AIL": LOCATEO, 12: PRINT- APPUYEZ SUR 

C POUR CONFIRMER VOTRE CH01X* 

, "APPUYEZ UNE AUTRE TOUCHE POUR AN 

NULATION* 

31B00 AS-INKEYS: IFAS---THEN31BO0 

91900 IFAS< >'C*THENC0LOR3, 1IGOSUB1 

7800: G0SUB20600! RETURN 

32000 CLS:WlDTH39:P0KEkHF3Bl,24:DE 

FUSR-I.H3E: I-USRiO) :KEY0N • 




lm Jet pams s&t 







V THOMSON T07. 
T07 70. 



3358 
3855 

ChTE 
336W 
3879 

39iB 

39B1 

3918 

392B 

3322 

TREE' 

3948 

3945 

3958 

3968 

7968 

40, M 

3996 I 

REE' . 

3999 ' 

4868 

4001 



Suite de la page 2 

tf R*»CHR«'Jt,. THEN 340 

IF M-CHRIUI' AKO CSRLIM>0 THEM LO 
POS.CSRLIW-1 
PltlHT R»; 
GOTO 3030 

' SAUVECARDE D'UHE IRACE 

input -no* dm i'iim i*ini 

IF NI*--* THEN 240 

PRINT -dAGNETO SUR ENREC. PUIS 'EN 

; tR«-INPUT*(l> 

IF RI-CHRX30) THEN 240 

PRINTtPRluT 

POKE tHE7C3, 1 

SAVEH NI*,LH4eee,tH5F4e,4,He0e8 

POKE tHE7C3,0iSAVEN NIf , IH4000, tH5F 



PI 



RECUPERATION D'UNE IMAGE 



4010 INPUT "No* dc l'i*agc :';NIS 

4030 PRINT -HAGNETO SUR PLAV PUIS 

EE'iiRtr-INPUTt<l> 

4040 IF Rf-CHf)K36> THEN 240 

4850 PRINT-PRINT 

4055 POKE &ME7C3.1 

4060 LOAD" HI* 

4888 POKE hHE?C3,0-LOAt>H NI< 

4890 PRINT "HAGNETO SUR 'STOP' PUI 

REE"*:R«-INPUT*<1 j:C0T0 240 

4099 ' 

4100 • EFFACEHENT DE L'ECRAN 

4110 ' 

4120 INPUT "ETES-VOUS SUR ?l! <o--r> 
4130 IF Rt«"N* THEN GOTO 240 
4140 IF RtO'O" THEN PLAY "DOHISOSOHIDO 
:GOTO 4129 

4150 GOTO100 
4160 RETURN 

4199 * 

4208 ' POSITIONNEMENT DU POINT 



4220 PRINT "Posi tlonne*ent (R>el»tif ou 

■;A)b*olu : ";!R**IKPUT»<1> 

4225 PRINT 

4230 IF R*0>A» ANO R*</"R" THEN PLAY "A 

101DOSIiDOSItD0SIi":G0T04228 

4240 IF Rt-"R- THEN 4288 

4256 INPUT "Position x, S "";X,Y 

4268 IF X>3 19 p x , e 0R YJ . 99 R y<8 THE 

N PLAY "A105r>OSI*D0D0SI#SI*"!G0T0 4258 



ELSE PSET(X2,Y2>,PiX2-XiY2-YiP-P0INT(X2, 

V2.:PSETCX2,Y2),CP 

4270 GOTO £40 

42S0 INPUT "Incrc.»*.fits x,3'";X-Y 

4290 IF X+X2<0 OR X*X2>328 OR Y*Y2<0 OR 

f*r2>280 THEN PLAY -A101D002D0030004C005 

D0SIt':G0T04280 

4295 PSET<X2,Y2),P 

4300 y.2*X2*X*Y2aY2*YiP»P0INT'X2,Y2>'PSET 

•K2.Y2).CPIPRINT!GOTO240 

4999 * 

5080 ' CALCUL OES OEPLACEMENTS 

5001 ' 

5005 Y2«Y2-1ANOY2>0:RETURN 

5010 Y2=Y2-1ANDY2>0:X2=>:2*IANDX2<319!RET 

URN 

5020 X2=X2*1AND> , .2'319:RETURN 

5030 X2=X2*lANDX2-319:Y2-Y2+IANDY2<199iR 

ETURN 

5048 Y2=Y2*1ANDY2<199:RETURN 

5050 X2»X2-lANDX2>8!Y2=Y2+lflNDY2<199:RET 

URN 

5860 X2=X2-1ANDX2>0:RETURN 

5879 X2=X2-lANDX2r 0!Y2=Y2-1ANDY2>0:RETUR 

N 

9997 ' 

9998 • GESTION DES ERREURS 

teeee print "erreur n.-jerr:- a la lign 

E : U ;ERL; :PLAY*A101L5DOSILASOFAHIREDO-:R 

*=INPU T *'.l PRESUME 250 • 
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PAVE2 OMi CETTE 6P1UE 
TOtlTES LES WiEUeS, FT Vpus 
te'coowi&z ONE COHS0WE- 

3 : t>t»wt 



EXELSTAR 



Eh oui, encore ces maudits extra - terrestres, on n'a 
plus le temps de se reposer. Vous savez ce qui vous 
reste a faire. 

David JRIKCZYK. 



EXELVISION-EXL 100 



3 CLS "GBB" 

3 CALL COLORCOCE;" ) 

J LOCATE (3,7) 

t PRINT "Voulu-vout da* axpl 

: LOCATE < 10, 14) 

i PRINT "wr EXELSTAR" 

I LOCATE (20,3) 

S PRINT "(0-NON LOUD" 

i CALL KEY1CD1,D2> 

' IF 01=48 THEN 63 

» IF 01=49 THEN 23 ELSE 26 

1 CLS: CALL COLORCOYB") 

1 LOCATE (2,1) 

I PRINT ' 

! PRINT 

jouar, 
i PRINT 
I PRINT 
5 PRINT 
i PRINT 

»CHR*< 
7 PRINT 




Jtiliaar la unttte »nc las touches" 
iranga.Si voua " 1CHR* ( 1 B ) 1 "t ei 2 Jouei 
ITMlltr jouhjt prfndra la Hiiittt av?< 
I is touches or«ngt at la Jtuii" 



37 CALL COLOR 
it: CALL COLOR 
33 CALL COLOR 
40 CALL COLOR 
4 1 CALL COLOR 

42 CALL COLOR 

43 CALL COLOR 

44 CALL COLORC'OWB 

45 LOCATE (3,3) :PR 

46 LOCATE 

47 LOCATE 

48 LOCATE 

49 LOCATE 

50 LOCATE 
LOCATE 



39 PRINTrPRINT "La vataaaau *a d" tCHR*( 1 7 > I"p I ac* da 
drojta "tCHR*(2) j 

39 PRINT "gaucha . Pour tlrar, ippuutz iur las 
gr o5-j»=. toucha* . " 

40 PAUSE 33: CLS 

41 CALL C0L0R("0CB"> 

42 LOCATE <2,D 

43 PRINT "EXELSTAR Nt un Jau qui conalata "ICHR*(2> 

44 PRINT CHR*(17)t"tabl it la ttilitur aeora poisibia." 
43 PRINT "Uou. "»CMR*<1B>i"ta* iu> couandti d'un 

va i ssaau rougt , " ; 

46 PRINT " avac laqual voua abattraz la*" 

47 PRINT "v«l(»HU> annams qui mont lint pltftCHR* 
<17>l"a." 

49 PRINTiPRINT "Ti va voua lilloir "ICHR*( 18) t"tra att 

•nt if "ICHR*(2)t" volra" 
49 PRINT "fual, voi aunitlona at voa via*." 
30 PRINT "Mala nt voua lnqui"tCHR*( 17) t"ttz paa car 



ranouval laront la fual atlaa 



32 PRINT "En ca qui concarna 
ranouval Itrom tout I at"; 

33 PRINT '• 500 point a." 

34 PAUSE 40ICL9J 

33 CALL CDLORCOCB") 

5G LOCATE (2,1> 

37 PRINT "Au coaaancaaant du 



JEU, voua poaa"tCHR*< 17)1 



38 PRINTiPRINT "a 100 unit" ICHR* < 17 ) t"« da fual." 
53 PRINT "a EC tira.":PRINT "a 4 valitwui." 

60 PAUSE 10:CLS 

61 CALL COLORC'ORB") 

62 LOCATE (10*10) 

63 PRINT "BONNE CHANCE..." 

64 PAUSE 4 

65 CLSiCALL COLOR < "0MB" ) 

66 LOCATE <10,4> 

67 PRINT "CHARCEZ LE PROGRAMME PRINCIPAL." 

73 CALL CHAR<1 ,'-01010101030603018383") 

74 CALL CHARC2,"80B08080C060C080C1C1") 
73 CALL CHARO,- , 979F9FBFFBF3E1C1B3B0" ) 

76 CALL CHAR(4,"E9F9F9F0DFCFB7B3C101") 

77 I VAIS. VERT 

78 CALL CHAR(3,"03030F3F7FAA3F2F4040*')' 

79 CALL CHAR(6,"COC0FOFCFE55FCF4O202") 
BO I VAIB. MAUVE 

B1 CALL CHAR(7,' , 1F376B0DFF7E3E3F7CF8"')' 

82 CALL CHAR(8,"F8ECD6BBFF7E7CFC3E1F"> 

83 f VAIS. CYAN 

84 CALL CHARO,"OF13033F6AABAAFf6467")' 
83 CALL CHAR<10,"F0CBC0FC560353FF20E0") 
BE I PT. EXP. 

87 CALL CHAR(11,"B4720D7A03iFE3iDC224 : ') 

68 CALL CHAR(12,"264059A680EAB24O4611") 
89 P UN. MUNIT. 

30 CALL CHAR<13,"001B1B3C7E7E3ciai86o'-J 

91 • VAIS. BLEU 

92 CALL CHAR(14,"00001C020101079AE39i"> 

93 CALL CHAR<15 ( "00003840B080E053C781") 
9* ' VAIS. SUP, 

95 CALL CHAR(1&,"08081C0B4343306B494«"i 

96 ! WAIS. JAUNE 

37 CALL CHAR<17,"FF7F350FOF0702036io6") 

98 CALL CHAR(1B,"FFFEACF0F0E04OCO8000") 

99 I CR. EXP. 

100 CALL CHAR( 1 9, "0&2BO0264781O6B0C 144" > 

101 CALL CHAR(20,"0408020360FOOBOOSOC9") 

102 CALL CHAR(21 ( "707FCOEOOB002C080003") 

103 CALL CMAR(22,"OBOOAC04008S70600EOB"> 

104 ' WAIS. BLANC 

105 CALL CHAR(23, "0001021F3FFA3F070000") 

106 CALL CHAR(24 ,"0O804OF8FC57FCEOOOOO") 

10 CLS "CBB" 

11 VA1*-CHR*<D1CHR*(2) 

12 vA2t-CHR*C3)tCHR»C4> 

13 EN»-CHR*<3)ICHR*(6> 

14 CI*-CHR*<7)tCHR*(8) 

15 MU*-CHR#(9)1CHR*<10) 

16 EX*-CHR*(11 )tCHR«(12> 

17 EX1*-CHR»(19) tCHR*(20) 

18 EX2*-CHR*(2D1CHR*(22> 

19 EN1*-CHR*(14)1CHR*<15)- 

20 F0*-CHR*(17)tCHR*< IB) 

21 F01*-CHR*(23)XCHR*(24> 

22 LA1*-"OD3ei6C301EDE72C8BB4CBECBD7D88AA6F3A2DD41AAF 
68DB46407AFOAE3CEAA1E" 

23 LA2»-"AA6AB7BE4A7CB86ADC6037C9E04BE8741 1850BC0430 
2FE" 

24 EXP1*""0BA02163O31B18008D1E139B40073A10B1OOFO3O1EB 
1OBO4B04 7BF0S4 4 20020570" 

23 EXP2*-"CEB002110840704E1 18B4O04 3CE0010F7BCOO316B0B 
OOS2C2001094 BB0O214AO0V" 

26 EXP3*-"03284081FF" 

27 PH»-"OE683FC7031EF040043CE0010F78C0021EB040042C600 
1 0F384 003 1 AU 0BO0&FE " 

28 TOUC*-"007CFEA1236602FC" 
23 LA»«LA1*ILA2* 

30 EXP*-EXP1»tEXP2*tEXP3* 

31 RANDOMIZE 

32 CALL C0LOR("OYLF"> 

33 LOCATE (2,12):PRINT " • " 

34 LOCATE (3,8):PRINT 
3SL0CATE (4,12>:PRIN1 



NT CHR*< 13) 
NT EN1* 
( 17, D :PRINT FO* 
(13,2) :PRINT F01* 
(7,5):PRINT "UOTRE VAISSEAU" 
10 POINTS" 
40 POINTS . 20 UNITES DE FUEL" 

INITE DE MUNITIONS" 



SO POINTS 
2 TIRS" 
60 POINTS" 
100 POINTS" 
200 POINTS" 

ou 2 JOUEURS 



rPRINT " "iLOCATE (3,C):PRINT 



....Ef.XXE ELL SSTTftARRnnmr 



13,5): 

7,23) iPRINT 
13,5) : PRINT 
17,5) tPRINT 
19,5) : PRINT 

52 CALL COLORCOCe") 
33 LOCATE <22,3):PRINT 

54 CALL KEYK01 ,02) 

55 IF 01=49 THEN 58 

56 IF D1=30 THEN S7 ELSE 54 

57 JOU=2:C0T0 39 
SB JOU-1 

53 IF J0U>2 THEN 53 

60 IF J0U=1 THEN 62 

61 SC(2)=0:FU(2>=10O:MU(2)-2:BAL(2)»39:C0U(2)=66:yA(2)=3:SC1(2)= 
50u: J0U2-1 

62 SC<D = 0:FU( 1 ) = 1O0:MUCD-2:BAL<1 ) =33 iC0U( 1 )-66 : vA( 1 ) =3: SCI ( 1 )' 
500: JOU1=1tA=1 

63 CLS:CALL HR0N( "B" ,6 , 15) 

64 IF JOU-1 THEN 215 ELSE 213 

65 FU(A)-FU(A)-1:CALL COLORt H Mb H ): LOCATE (1,22):PRINT FU(A) 

66 IF FU(A>-0 THEN 233 

67 CALL COLOR ("08B") 

68 LOCATE (21,2):PRINT ■ 
63 LOCATE (22,2>tPRINT ■ 

70 CALL C0LOR("1RB"):LOCATE (21,B):PRINT VA1*lL0CATE (22,8):PRINT 
VA2« 

71 IF SC1(A)(-SC(A)THEN COSUB 229 

72 CALL C0L0R("1G6")tL0CATE (3,C- 
DM 

73 O-INTRNIM 16) 

74 IF 0-3 OR D-15 THEN COSUB 114 
73 C-C*1tIF C-40 THEN 76 ELSE 77 

76 C-2:LOCATE (3,39)tPRINT " 

77 LOCATE (3 ,E»2> iPRINT " " iLOCATE (3, E> tPRINT ENS 

78 IF D-6 OR 0-1* THEN COSUB 117 

79 E-E-1iIF E-0 THEN BO ELSE 81 
BO E-38IL0CATE (3,1)iPRINT » " 
B1 F-INTRNDOO) 

82 IF F-60 OR F-20 THEN COSUB 142 

83 IF F*3 OR F-90 THEN GOSUB 146 

84 IF F-30 OR F>B7 THEN COSUB 150 
B3 IF F<3 OR F-B6 OR F>30 THEN COSUB 154 

86 IF F-90 OR F<4 THEN COSUB 158 

87 IF 1)1 THEN COSUB 120 
B8 IF J>1 THEN COSUB 124 
83 IF H)1 THEN GOSUB 12B 

90 IF C>1 THEN COSUB 132 

91 IF C1>1 THEN COSUB 137 

92 CALL KEY2(V(2),Z> 

93 CALL KEY1(Y<1),Z) 

94 IF Y(A)-32 THEN 101 

33 IF Y(A)-131 OR Y<A>-84 OR Y(A)-60 THEN 97 
96 IF Y(A)-129 OR Y(A)-79 OR Y(A)-72 THEN 98 ELSE 70 
37 B-B-21IF 8(2 THEN 93 ELSE 65 

98 B-B*2iIF B>38 THEN 100 ELSE 65 

99 B-2:COT0 70 

100 8-38: GOTO 70 

101 61-Ba9tCALL SPEECH! "L , "1LA«> 

102 CALL LINE("Y",B1,149,B1,0) (CALL LINE! "B" ,B1 , 143, B1 ,0) 

103 IF 8-C-1 THEN GOSUB 162 

104 IF 6-E.1 THEN GOSUB 166 
103 IF B-H THEN COSUB 170 

106 IF B-I THEN COSUB 174 

107 IF B-J THEN GOSUB 178 

108 IF B-G THEN COSUB 1R4 

109 IF 6-C1 THEN COSUB 188 

110 MU(A)-MU(A>-1 iIF flU<A> THEN 111 ELSE 113 

111 CALL C0LOR("Obb">lL0CATE (2,BAL(A) > iPRINT " " 

112 hu(A)«2eBal(a>-bal(a>-i 

113 if 8al(a)>6 then 233 else 67 

114 C1-Ca8:CALL 8PEECH( "L , "1PH* ) 
113 CALL LINE("R",C1,0,C1,149):CALL LINE ( "B" ,C1 , 0,C1 , 1 49 ) 

116 IF C-B THEN 192 ELSE RETURN 

117 E1-E«8:CALL SPEECH ( "L , "«PH«) 
11B CALL LINE("R",E1 ,0,E1 ,149) tCALL LINE( "8" , E1 ,0 ,E 1 , 149) 

119 IF E-B THEN 192 ELSE RETURN 

120 K-INTRND(7>iIF K-3 THEN 121 ELSE RETURN 

121 K1-Ia8:CALL SPEECHC "L, "iPH») 

122 CALL LINE("b",K1,0,K1, 149) :CALL LINEC'B" 

123 IF I-B THEN 192 ELSE RETURN 

124 L-INTRND(4) : IF L-3 THEN 123 EL5E RETURN 
123 L1"JeB:CALL SPEECHC "L,"tPHa> 

126 CALL LINE("G",L1 ,0,L1 , 149):CALL LINEC'I 

127 IF J-B THEN 192 ELSE RETURN 

128 M-INTRNDC4) tIF M»2 THEN 123 ELSE RETURN 

129 M1-HaB:CALL SPEECH( "L , " IPHt) 

130 CALL LINE("C*,M1 ,0,M1 ,149) : CALL LINE( "B" , Ml ,0 , Ml , 1 49) 

131 IF H=B THEN 132 ELSE RETURN 

132 N-INTRNCH3):IF N-2 THEN 133 ELSE RETURN 

133 0-INTRND(13) :01 =0«2 :P^«G»8 : P2-01 «8 

134 CALL SPEECHC'L,"IPHt) 
133 CALL LINE("M",P1 ,0,P2,143) : CALL L INE ( "B" ,P1 ,0 , P2 , 1 49 ) 

136 IF 01-6 THEN 192 ELSE RETURN 

137 Q-INTRN0C2) I IF 0=2 THEN 138 ELSE RETURN 

138 R=INTRND(19):R1"Ra2:S1-C1aB:S2=R1»8 

135 CALL SPEECHC'L.-IPHt) 

140 CALL LINEC'H" ,S1 ,0,32, 143) :CALL L INE ( "8" ,S1 ,0 ,S2 , 149) 

141 IF R1-B THEN 192 ELSE RETURN 

142 IF F0UO1 THEN RETURN 

143 C-INTRND(19):C-Ca2:FOU-0 

144 CALL C0L0RC1YB") :LOCATE (3,C) 
143 RETURN 

146 IF F0U1O1 THEN RETURN 

147 G1-INTRND( 19) :C1 =C1 a2: F0U1 -0 

148 CALL COLORC'IWB") tLOCATE (3, CD 
PRINT F01* 

149 RETURN 

130 IF EN101 THEN RETURN 

131 H-INTRNO( 19) :H»Ha2:EN1<=0 

132 CALL C0L0R("1bB")iL0CATE (4,H>: 
PRINT EN1« 

133 RETURN 

134 IF CI(>1 THEN RETURN 

135 I-INTRND(19> :I-Ia2:CI-0 

136 CALL C0LOR("1MB-):LOCATE 



,143) 



",L1 ,0,L1 ,14 



PRINT F0» 



onto jpftczyK 

tlVPANT Soft OEU 



tA tit e'iiT 
(ohmc le wHiSk'/: 
Plus on en ronton 
pu> on vieiaft 



167 
168 
1E.9 
170 



RETURN 

IF MU101 OR BAL(A)«39 THEN RETURN 
J-INTRNO< 19): J-J«2:MU1-0 

CALL C0L0RC1CB") ILOCATE (4,J):PRINT MU» 
RETURN 

CALL SPEECH("L."IEXP«) : CALL COLOR (" 1MB" ) 
:LOCATE (5,C-1):PRINT EX* 
PAUSE .3 [LOCATE ( 5 , C- 1 ) : PR I NT " " 
SC(A)-SC(A)*10 
C>2:C0TO 261 

CALL SPEECH("L,"IEXP*) :CALL COLOR t " 1MB" > 
:LOCATE ( 5 , Et 1 ) : PRINT EX» 
PAUSE .3:L0CATE (5 ,E • 1 ) :PRIN f " " 
SC(A)-SC(A)*10 
E-38tC0T0 261 

CALL SPEECH("L."1EXP«):CALL COLOR C " 1NB" ) 
:LOCATE (4,H):PRINT EX* 
PAUSE .3:L0CATE (4,H):PRINT " " 
SC(A)-SC(A)*SO 
EN1-1iH-0:C0T0 261 

CALL SPEECH("L,"IEXP*):CALL COLOR( " 1RB" ) 
iLOCATE (4,I):PRINT EX* 
PAUSE .3:L0CATE (4,I)iPRINT - " 
SC<A)-SC(A)*40lFU(A)«FU(A>«20 
CI-1iI-0:C0T0 261 

CALL SPEECH("L,"1EXP*> j CALL COLOR ( " 1 YB" I 
:LOCATE (4,J):PRINT EX* 
PAUSE .StLOCATE (4,J)tPRINT - " 
SC < A > -SC ( A ) » 50 1 MU ( A) -2 
BAL(A>-BAL(A>*1 

CALL C0LOR("1RY"):LOCATE (2,BAL<A)): 
PRINT CHR*(13) 
MU1-1U-0tC0TU 261 

CALL SPEECH("L,-IEXP*>jCALL COL0R( " 1GB" > 
iLOCATE (3,C):PRINT EX* 
PAUSE .3IL0CATE (3,G)tPRINT " " 
SC<A>-8C(A)*100 
FOU-1 1G-O1COTO 261 

CALL SPEECH("L."tEXP*> iCALL COLOR ( " 1CB" ) 
iLOCATE C3.G1):PRINT EX* 
PAUSE .3IL0CATE (3,C1)lPRINT " ■ 
SC(A>-SC(A)*200 
FOUI-I1GI-O1COTO 261 

CALL COLOR("Obb")iLOCATE ( 1 ,40-VA(A) ) : 
PRINT M » 

CALL 8PEECH("L,"IEXP*) tCALL COLOR ( '• 1 KB" > 
(LOCATE (21,B):PRINT EX1* 
LOCATE (22,B) :PR1NT EX2* 

PAUSE 1 tLOCATE <21,B>lPRINT " "tLOCATE 
<22,B):PRINT " ■ 
IF JOU-2 THEN 199 
IF VA(A)-0 THEN 233 
UA(A)-yA(A)-1iB-20iG0T0 67 
IF VA(A)-0 THEN 238 
VA(A)-UA(A)-1 

IF J0U1-0 AND JOU2-0 THEN 247 
IF A< )1 THEN 209 
IF JOU2-0 THEN 22S 
FOR EF=1 TO 3 
LOCATE (EF.DtPRINT " 
NEXT EF 

CALL COLOR ("ORLF") tLOCATE (2,13):PRINT " 
JJOOUUEEUURR 22" 
A-2:PAUSE 4tC0T0 213 
IF J0U1-0 THEN 223 
FOR EF-1 TO 3 
LOCATE (EF,1)lPRIHT " 



139 
2 00 

201 

202 

203 
20* 
203 
20f. 
207 

200 
203 
210 
211 



212 NEXT EF 

213 CALL COLOR ("ORLF") tLOCATE (2,13):PRINT 
JJOOUUEEUURR 11" 

214 A-llPAUSE 4 

213 CALL COLOR("OtK>"> 
216 LOCATE (1,1>iPRINT " 



217 LOCATE (2,1 



iPRINT 



4,1) tPRINT CIS 



218 LOCATE (1,1)tPKlNT "SCORE: " (SC(A) iLOCAit 

(1,17)tPRINT "FUELfiFUCA) 
21S LOCATE (2,1)tPRINT "FIREt" 

220 FOR T-7 TO BAL(A> 

221 CALL COLORC'IRY") iLOCATE <2.T)iPRINT 
CHR»<13> 

222 NEXT T 

223 C-2:E-3B:LN1-1 :H-0:CI-1 : 1-0 

224 MU1-1I J-OlFOU-1 iC-OlFOUI-1 IG1-0 
223 FOR U-1 TO VA(A) 

226 CALL C0LOR<"1Rb")iLOCATE ( 1 , 40-U) tPRINT 
CHR*<16) 

227 NEXT U 

228 B-20IPAUSE 2tGOT0 67 

223 CALL C0L0R("1Rb") tCALL SPEECH < "R , "tTOUC* 
iVA<A)-UA(A) ti' 

230 LOCATE ( 1 , 40-UAC A) ) tPRINT CHR*(16) 

231 PAUSE .6:CALL SPEECH( "A, "tTOUC*> 

232 SC1(A)-SC1CA)«300:RETURN 

233 PAUSE 2: IF JOU-2 THEN 238 

234 CALL HROFF 

235. CALL COLORC-OGL") 

236 LOCATE (2,11)tPRINT "CCAAMMEE OOVVEERR" 

237 GOTO 234 

238 CALL COLORCOCe") 

239 FOR EF-1 TO 5 

240 LOCATE (EF.DtPRINT " 

241 NEXT EF 

242 LOCATE (1,15):PRINT 

243 LOCATE (2,16):PRINT 

244 ON A GOTO 245,246 
243 JOUI-OtCOTO 201 

246 JOU2-O!C0TD 201 

247 CALL HROFF 

248 CALL COLORC'OML") 

243 LOCATE ( 10 , 14 ) tPRINT "JJOOUUEEUURR 22" 

250 CALL COLORCOYB") 

251 LOCATE ( 1 3, 10 ) : PRINT "SCORE : " ; SC (2 ) 

252 CALL COLORC'OML") 

233 LOCATE (2, 14) tPRINT "JJOOUUEEUURR 11" 

234 CALL COLORC'OYB") 

233 LOCATE <3,10)iPRINT "SCORE i " iSC ( D 

256 CALL COLORC'OGB") 

257 LOCATE (22,3):PRINT "UNE AUTRE PARTIE 1 
(0-N 1-0)" 

25B CALL KEY1CD1.D2) 
239 IF 01-43 THEN RUN 

260 IP D1-48 THEN Cl.SlEND ELSE 258 

261 CALL COLOR<"OVb"):LOCATE (1,7):PRINT SC 
(A)tLOCATE (1,22)tPRINT FUCA> 

262 RETURN 



MARIO BROS 



Si vous ne devenez pas fou en tapant le listing, vous le 
deviendrez en jouant a ce |eu diabolique qui demande 
des reflexes foudroyants. 

Frederic FRANCOIS 

Mode d emploi: 

Pouf rendre ce programme compatible avec Atmos 

1) Ajouter 1 a I'axe des "X" aux instructions "PLOT". 
Exemple: PLOT X.Y.'A" devient PLOT X+ l,Y,"A" 

2) Ajoutez les lignes suivanles: 

100 PRINT PRINT 'D0KE424S. 49350 r* 
LL48700 D0KE4245, "EE22 

13030 DATA67. 189. 169-94. 141. 154-1 
91. 169. 95. 14 1.155. 191. 32 .203. 250. ' 
2.0, 138 

13080 DATA188. 141.221. 188. 169, *4. 
141. 172.191 .169.95.141. 1 711. !«! . <?. 
203.230 

20230 DATA 168. 104.76. 34. 23(. 189. 
0,141. 9- 4, 76,0, 149 




M.0T96 ?3 



18 

U09C PLOT0.8."wwj'J'jW PIOT0-11. 
"wuwuuwwu" 'PLOT0, I7,"uwuuvuuuw" 

11108 PL0T0.23."u-..wwwwuuW PLOT0. 
24. "uuuiww" i PLOT0,23."i.'uwwW 

11110 F0RA-9T025 PLQT0.fi. "..■W NEX 



-fr •& •& 



2 REM PRUGRAMMt P1NR10-8RUS 

4 REM AuTEUR FRANCOIS FREDERIC 

6 REM OftlC-1 

9 CLS^PRINTCHRi. 17, PRPER0. IN* 3 I- 
ORA-1TO10 PRINT NEXTh 

10 PRINTCNR«M>jCHR»*2.' V'N".L.HR0< 
27 >"D" • SPCt 13 v'VEUILLEZ PfiTIENTER" 

11 PL0T4.12.6 ;PR1HTCHR*4) 

12 PRINTCHRtl.6,, 

13 PLUT13.28."CHARGEMENT CARRC1ER 



30 GOSUB12000 
40 GuS,U640«w 

■-■>.< >:,':>; u&seeee gosubsssh 

35 CLS PRINT'PRINT'PRINT PAPER4 I 
MO 

36 PRINTCHR»i2?;"D NIvEhu " [NPtJ 

T-ENTREZ UN NGMBRE EnTRE 108 ET 28 

D .» 

57 IFfl<.100QRA.»200TMENGOTU36 

38 PUKE#40fi,A 

60 POKE 1,8 

70 FQRFI-B9001TOK900E POKfcfl. J2:NEX 
TA 

08 PUKE4482.0 P0KE44MJ.9 PUKE«40w 
.0 

85 GQSUBueee 

90 POKE 4409. 3POKEH401.1 P0KE848 
6.0 

108 PRINT PRINT D0KEB229 . »>55w Cm 
LLH8700 O0KE«229.tEC83 

110 PL0T14.3."GftME OVER" PL0T13. 
3.4 

128 WflIT300CLS 

138 PRINT"VOTRE SCORE 

140 H1*PEEK( «48j> H2-PEE<««402> 

150 81-INT(ftl--lb^ 62-INTiA2'16* 

160 Cl-Ftl-Bl*lb C2-fl2-B2*16 

179 8C-B1*1000+C1<100*B2*10+C2 PR 
INTSPC< 10 >■ CHR«< 27 >"(>", SC 

180 IFSOHSTHENHS-SC PRINT"HIGH S 
CORE '"'PRINTSPC( 10 l.CHR* 27>"D" , H 
S 

190 PRINT'UNE AUTRE PART IE ' u-N , 
I" GETA4 IFA»<. >"O"TMEN250 
200 PRlNfOK." WAIT200 G0T05S 
238 IFR*O"N"THEN190ELSE FHD 

10000 REM************** 

10001 REM* CARACTERES * 
18002 ii'iMUniMiiiir 

10010 FORW-46832TQ47079'REROx.PriK 
EMiX'NEXTM 
10013 RETIJRH 
10016 OftTR9.8.4.25.60.2*,14-6 

10817 DRTH18. 4.33,11 . 39.30,80.58 

10818 DHTRe,e,e.8.0,e.e,0 

10020 DATA0, 0,0, 0.31. 31,31,0 
10825 DRT80. 0,0, 8.63. 63. 63.8 
10030 DATA0.4.14.14.31.3I.31.0 
10835 08TR8, 16.56,36.63.63,63,8 
10040 DflTfl0.5. 14. 14-31. 31.31.0 
10045 Df*TH0, 20. 38. 5fe. 63,63-63. 8 
10050 DATA3I.31.31.0.31..31.31.0 
10053 DHTH63.63.63,0.63.6J,83.0 
10060 OflTB.31. 31. 31-0-38. 23-31-8 
10865 DATA31 19, 15. 8. 31, H.31,9 
10878 DRTfl0,1.3,31,2,6.3.0 
10875 DATR9. 48, 69. 60. 46, 10-34.36 
100B0 DRTA3. 0.0. 1,3.7.47-17 
I00B5 DnTR36.24.60.44.20.44.20.6M 
10090 DATA35. 39. 14,20.14,7,7.31 
10095 DATR56. 60, 14,6.6.6.6.6 
10188 DRTA8,3. 13. 15. 23-20-17. 9 
10110 DATR0. 32,48.62. 16. 24, 48. n 
18115 DRTH9.6. 13. 13. 19. 13-10-15 
10120 DflTfl48.0.0.32,48,56.81,34 
18123 DflTfl7.15.28.24.24,2424.24 
18130 DATA49. 57 . 28. 14 . 29 , 56 - 56 -2 
10133 0HTH63.63.63.63.63.63.63.63 
18140 DATR7. 10, 18.18.10.70.0 
18145 DATR63. 18.18,18. 18, 63,0 -0 
10158 DATR56-20. 18. 18,28.56.0.0 
10153 OHTfl20,23.20.20.20,^3.28 ^0 
10160 DRTR10.58.19.10 10 58-10 10 

11000 REM********** 

11081 REM* DESSIN ' 

11002 m »i 

11903 TEXT PAPER0INK2 CLS PnKE48 
036, 16 P0KE48837, 8 PUKE488 «y . m 

11805 F0RR-8T03 PL0T18. A. 18 K.C-T2 
8.R, 16>NEXTfl. 

11810 F0R8"4Trj^5 PLOT! 7.fi, "wjw" 
NEXTfl PL0T9.1-4 PL0T1 1 . 1 . •'MRRIO-BR 
OS I CIE" 
11820 P0fE43088. 17 
11023 PL0T7.3.1 PLOTS. 5. *x*v»v** 
xwuwuwvvMvyz" 
11026 PL0T27,5,2 

11038 PLOT10-8.1 PL0T1 1,6. "»»>■*«*■* 
uwww»»»!»»¥Z" PL0T28.82 
11840 PLOT9.11.1 PLOT 10, 11 . "iwwsa 
VX«.PL0T27.11.2 
I PLOT10.14.1 ipLOTll, I4*"*»vii 
i¥»VI»»wz" PL0T28.14.2 
I PL0T9. 17, 1PLOT10, 17. -*■*•*«... 
i«w».i»»r , 'PL0T27.l7,2 

I PLOT10.20.1 PLOT11.20."y^ !I y 

-»»»»»»z" PL0T28.29.2 

i PL0T9.23.1 PL0T18,23, , ---.s^» 



Tft 

11120 PLOT 1,9, 2 PL0T1. 1B.2PL0T4, 
9 . " < ! " ■ PL0T4 , IB . •'<:" . PL0T6, 6, 3 PLU 
T6,9,3 

11138 F0RR-12T016 PL0T2.R.2 PL0T4 
,R, •■<!'• NEXTfi PL0T6 14. 3 PL0T6. 15. 
3 

11135 PL0T14.9.2 PL0T14.13.2 

11140 FORR-18T022 PL0T2.R.2 PLi'T4 
,fl,-<:" NEXTfi PLOT6-28.3 ?L0r6./l. 
3 

11145 PL0T14.21.2 

11150 F0RA-3TO7 PL0T32.R.2 PL0T33 
,fl,"<!"NEXTR'PL0T29.8.23PL0T29.1 
4,23 

1 1 160 FORR-9T01 3 PLOT 32, fi, 2 PL0T3 
3,fi." ( !'•■ NEXTfi F0RR-I5TO19 PL0T32, 
ft. 2 

11178 PL0T33.ft,"< I "NEXTfi PLOT29. 
20, 23 PLOT37.21 . 23 PL0T37, 22 . 23 PL 
0T36,23,23 

11188 PL0T36,24.23'PL0T36.23,23 

11183 PL0T7,14,"4r"PL0T7.15.- , ?t" 
' PLOT?. 16. "UV" PL0T29 . 1 1 , "k l" PLOT 
29,12."i»n" 

11166 PL0T29- 13. "oP" PL0T22.i*.7 

11190 PLOT30, 0. "SCORE •'■PL0T31.1 . 
"8000" PLOT35,10-"MISS- PL0T35 I! 

11195 PLOT37.11.-0" 

11196 PL0T13-24.2 PL0T13.23-2 

11200 PLOT 33, 4. 23 PL0T28.11.3 Pl.O 
T2B. I 2. 3 PL0T28 .5.3' PL0T2R ,63 

11201 PL0T28.17.3 PL0T28.18-3 PET 
URN 

12000 REMt««***»»»**»*»**** 

12001 REM* ROUTINE EN L.M # 

12002 PEM***ttitr*t*iiittit 

12019 FORfi"»8e00TO4*9*9*170 REHfB 
POkER.B, NEXTfi 

12020 DflTR174.34.191 .224, 99- 208. 3 
■169.1,133-1.96 

1MM DATA! 73. 36- 1^1 - 141 . 3* . 191 1 

73,37. 191 141. 35. 1^1 

12040 DftTftl?3, ». 191.141 
73.39. 191. 141,37. 191 

12050 DfiTfil73.49,l9l Ml ■ ■- : -1 l 
73.41,191. 141 39-191 

12860 DfiTfil74.i.i44,^24.9?.28«.2. 
162.99.142.48.191 , 173 

12070 UfiTfl2,144. 141 .41. \'t\ . 1. - \f. 
.191 141-1 . 144,173,47. 191.141 .2. 14 
4 

12868 l>ftTfll?j.4B. 1^1 14],46.191 ■ I 
73,49,191.141.47,191 

12099 DflTfil 73 50.191 - Hi .4*. I'M 1 
73.31-191,141,49.191 

12100 DfiTfli73-52. 191-141 .50- 1M . I 
73.33,191.141,51, 191 

12110 DflTfil 73, 54. 191. 141.5?. 1*1.1 
73,33.191.141,33, 191 

12120 DflTftl73.56. 191 141 .54 191 t 
73.57,191.141.35.191 

12130 DflTH173.38.191.141.36. 19! .1 
73-59. 191. 141. 37. 191 

12140 DflTfll73.60, 191.141,58 191 . 1 
73,61, 191. 141.59. 191 

12150 DfiTR163.32. 141 -60. 191 . 141 6 
1,191,96 

12200 REM*«»****t»tt**tt*t*tltt 

12281 REM* ROUTINE EN L.M N.2 * 

12282 REM**********it*tt Hti »t i 
12218 FORR-«8188TOt8180+110 
12212 REfiDB POKER. 6 NEXTm 

12229 DflTfll74, 188.190 224 9* 2i"»3 , 
5,169.2.133.1,96.173-186. 19«. 141 1 

12223 DflTfll73, 187. 190. 141 IS-. l^D 

12230 DBTA173. 184 . 190 . 141 l»". 1 »fl 
,173,103.190.141 187.190 

12240 DATR173. 182 190. 141 . 184. 19k 
. 173. 183. 198, 141. 185. 199 

1 2230 DftTfll 74 , 4 - 1 44 . 224 . 9m , 2W , , ' . 
162,100. 142,183.190-173.3. 144 141 . 

12260 DRTA173.176.I90.141 . 3. 144.1 
73,177.190. 141,4.144 

12270 DflTfil 73, 174. 190. 141 • 1/6. 190 
.173. 173. 190. 141, 177. 190 

12280 DATftt73,l?2 190, 141 . 174. 19n 
,173, 173. 190. 141. 173. 199 

12290 ORTfil69.32,141.172.19014i . 
173. 190. 96 

12390 REM**»**»*******««**f «»it 

12301 REM* ROUTINE EN l.M N. * t 

12302 REM*«»*****f*»»*r**ti tti ' 
12310 FORfi-«t>320^Ti:i«e.'80*ll0 
12312 REfiDB POKEfl.e NEXTfi 

12320 DRTfll74,30- 190.224. 101 .2Hrt. 
3,169,3, 133,1.96 

12330 DATH173.52.190. 141.5*1. 1 <>"<. i 
73,53,190,141,51.190 

12340 DflTA173.54.19014i -.. 190, | 
73.55.190.141.53,198 

12339 DATA173.56. 190.141-54. I "• ! 
73.57.190-141.55 1-0 

12360 DflTfll74,5. 144 2/4 .**..-rt0. 2. 
162.191 . 142.56. 190, 173,6. 144 141 s 

12378 DATfil73.62.l90|41 3. 144-17 
3.63,199. 141. 6. 144 

12380 DfiTA17364. 198 141 .6?, t«» 1 
73.65. 198. 141,63.198 

12398 £>fiTAl 7 3.6k. 190. 141.64.19**. I 
73.67. 198, 141 .fcs ; M 

12395 DfiTA169-32. 141 .+.6, i«0. 141 6 
?. 190.96 

12409 REM********»»**«**t»«»n, 

12481 REM* ROUTINE EN 1 . M N.4 * 



12492 BEI1IIIIHMiilllt»mitll 
12410 FORfi-R8300TOi8380*'110 

12412 REfiDB POKEfi.9 NEXTfi 

12420 OATfll74.204. 189-224. in t ?m 

.3. 169.4. ! 33. 1 96. 173,202. 189. 141 . 

204.189 
12430 DATH173.203. 189. 141,2*3. 189 

,173,289,189.141.202,189,173,281.1 

89 



89 

1243B DRTA174. 8. 144,224. 108 208.2 
-162.102. 142. 199. 189. 173. 7. 144- 141 
,198.189 

12469 PflTH173-192. 189.141.7. 144. 1 
73- 193. 189. 141, 8. 144. 173, 198 19* 

12470 DATA141. 192. 189. 173. 191.184 
,141. 193. 189- 173. 188, 139. 141. 190.1 
89 

12488 0ATA173, 189, 189, 141 .191.189 
, 169.32, 141 . 188- 189. 141 . 189. 189- 96 

12300 PEM******f****t**.trn it* 

12301 REM* ROUTINE EN L.M N.3 * 
12502 REM*************t*»**#«M 
12303 FORR-t8400Tri»8408*12i : ' 
12510 REAOB P0KEA.6 NEXTH 

12520 DATA174.66. 189,224.103.208. 
5. 169 5, 133. 1.96-173,68.189, 141.66 
,189 

12539 DflTH173-69.189.141 ...Mdo.l 
73.70,189, 141,68,189 

12540 DATR173.71 . 189. |416*.189-I 
73.72.189.141-70. 189 

12330 DflTfll73.73.189.I41 ,71 . 1*9. l 
74.9.144,224, 101. 288. 13 K ;. |4 
2,72 

12335 DfiTflI89. 162, 104, 142.73. 189. 
76.76. 132. 169. 32. 141, 72. 189, 141. 73 
.109 

173. 



, 144 



-141. 



12578 DftTA173.80, 189. 141 , 78, 184. f 
73,81. 189. 141.79. 189 

12580 DATfiI73.82. 189. 141 .00, 189. 1 
73,83.189.141.81.189 

12390 DflTfil69.32. 141,82.180. 141 .w 
3-189,96 

12*** KHUXIIKKIIIIIIIIIH! 

12601 REM* ROUTIHE EN L.M N.6 T 

12602 PEM*******#I****l*lt»*f«t 
12683 FOR fi-t8390TO483O9*t29 
12610 REHfB POKEfi-8 NEXTfi 

12628 DATA174.220. 188. 224. 105, 2A0 
.3169. 6. 133-1 96 

12638 DfiTfil73218. 198 141 2/fi [ae 
.173. 219. 198.141.221-188 

12648 DfiTfll73.216. 188 . 141 .z 18 > 108 
-173.217. 188,141.219. 188 

12639 DATfll73214.188,l41 21^-1«8 
.173,213. 188.141.217.188 

12660 DATA174. 1^. 144.^24 104 - ?H8 . 
13. 162- 196. 142.215- 188, 162. 103. 142 
.214.108 

12665 DfiTA76,76.133. 16- 
4.108.141,213-188 

12679DflTfll73.298.188141.il 144, 
173.209, 188.14112. 144 

12689 DHTR173.206188. 141-.'(18 18' 
.173,207,186.141 .209. 188 

12685 DftTfll 73.284. 188- Ml "- 18:* 
.173283. 188. 141 207.188 

12690 DATA169.32. 141,204,188.141, 
205,188,96 

12798 P£M********|-****t*»ttMtt i 
12781 REM* ROUTINE EN I ,M H.T t 
12702 REM**tt*******tl*ttttit*ll 

12710 FORA»»8600TOite600*116 

12711 READB POKEA.B NEXTH 

12728 0ATA174. 88. 188-224. 19--. ^.,8, 
3.169.7.133,1,96 

12730 DflTH173,82. 188.I4i.ft9 iflft 1 
73,83.188.141.81 198 

12735 DATR173.84. 188- 141 .»2. 18ft I 
73-85-188, 141. 83- 188 

12748 DftTfll?3.86.I88, 141 64,188. 1 
73.87,188,141.85.188 

12743 DfiTA173-89. 180. 141 .86. 18k. I 
73,89,188,141 .87.188 

12750 DflTAI?3-I3. 144, 141 . 88 . 19* . | 
73.14, 144,141,89.188 

1276B DATA173.94. 188 . 141 . 13 144 . I 
73.93.186,141,14. 144 

12770 DATA173. 96. 188.141 44.10R.I 
73,97,188.141.93.198 

12780 DRTHI73.98. 188- 141 . 96. 18" . 1 
73.99,108.141.97.188 

12785 DATR169- 32. 141 98.108.141 9 
9.188.96 

13000 REM***»***********t****»»»* 
*«* 

13001 REM* ROUTINE POUR L'EI'W'IUM 
ENT* 

13002 REM*»**tlitt»t*tttt*t»#H*t 
**** 

13019 FORfl-48B00TOi8C89 READS P01 
EA.B NEXTA 

13020 DflTH169.32.!41 .80. 188 ■ 141 .8 
1,188 

1 3039 DftTfi 1 74 . 1 94 . 1 86 . 224 . 32 . 2d8 . 
13. 159. 103. 141 .194, 100. 169. 196 14! 
.193.186 

13032 DflTA76.231. 139 

13040 DflTfll74.i96. 198.2/4. .(2.298. 
13.169.105,141.196.188. 169.10* 141 
,197.188 

13042 DflTfl76251 139 

13030 DflTfll74. 19«. lflft..->< >2. »ft. 
13. 169, 103. 141 .198. 198. 1*- I - in 

199. 188 

13952 DATfi76,231139 

13060 DBTR174. 134. 1A8..= >4. 3? ..>*'-: . 
13- 169. 195. 141 154. 188. 16*. IV16.MI 
,155.198 

13062 DftTfl76251 , 1 *« 



13070 DATA174. 156. 188 .-'24.32. 2Ak. 
13-169.195.141 ,156. 18*. !«■•• lufi Ml 
137.188 
13672 DATA76.251 . 1 3« 

13089 DflTfll74.158.188.224.3.>.2nfl. 
13. 169. 105. 141. 158. 18S. 169. t<K. 141 

139.188 
13982 DflTfl76..":51. 139 

13090 DRTA174. 114.106-224. *.'.2»*8- 
13.169.185. Ml 114. in*. 1*9 106.141 
, 113, 188 

13892 DfiTA76.251 .139 

13100 DHTA174.U6. 18K..V4 :2./98. 
13. 169. 185. 141. 116. 188. 169. IB*. 141 
. 117. 188 

13102 DATA76-231 .134 

13110 DATH174.llfl.IK8 ;-4 J2 20'- . 
13. 169. 105. 141.11$. 106- 169- 1*6 . 141 
. 119- 188 

1 3112 DATH76.25l.139 

13129 DATA174- 74.188-224 -. 2"-. 
13.169 195.141 74.l8ft.1-v- |A6 Mi 
. 75- 188 

13122 DATHr62 c l .139 

13139 DATA174. 76, 188;.. 

13. 169-105,141, 76. 188- 1^9. 186. Ml 
, 77.188 
13132 DflTA76.251.HO 

13140 DATR174. 78. 188.224 32. 20«. 
13. 169- 105. 141, 78. 188. 169. U)6. 141 

79,188 
13142 DATH76 231 ■ 1 39 
13150 DA-TA32- 1 - 14«. I--* i ■ > .d . l ■: 
7.96 

14009 F0Pfl=4J3C91TO«8Cfll*ft3 REfll>B 
POKEfl.B NEXTfl 

14010 DATA169.32. 141.194-188-141, 
I 95. 188. 141. 196. 180- 141.1*7. 188. 14 
1 .199. 188 

14920 DATA141 . 199. 198.141 . 1M. 18* 
■ 141 . 153. 188.141 , 136. 18* Ml I -.7 1 
88,141, 158 

14039 DATA188. 141 . 154, 1*8. 141 . 114 
. 188. 141.115. 188.141 . 116. 1*9. 141 

14049 DRTA117, 188-141 . 118- 188. 141 
.119.188-141 .74. 188. 141 .75- 18k- 141 

76.188.141 

14930 DATA77. is*. 141 .7*. 1H8. 141 7 
9.188,24. 173,19.4 

14060 DRTA233, 10. 141 . ta,4.?6 

irwe PEMttimi.it) it. i .i 

13001 PEM* E**EifPS * 

13002 REM***t*»**«**.tii«» 

15019 FORH-49600Trill9647 REflDP Pr* 
Efi . 8 NEXTfl 

13020 DHTA169- 32. 141 34 191.141.-: 
5- 191 141. 59. 198- 141 51 .190.141-*.* 

189.141 

15B30 DHTA67. 189. 169-94 Ml , 154 ! 
91.169.95.141. 153. 191 . 3J' 1 77. 2 C -^ ■'■■ 
2,0, 138 

15940 0flTA169.32.141, 154 1<U .Ml, 
135. 191, 228, 8. 4, 169. 3. 285. 8. 4.. >48. 
17.173 

13050 DflTR0.4-24.in5-48-141.t34.! 
09.169.5.32.0. 1 37. 76. n. 116.96 

15060 F0Rfl-«*9790T0#974r REfiDB POK 
Efl.6 NEXTfl 

13070 DHTR169.32 141 . iftfl 196. mi 
189.190.141.204.189. 141 -285.184.14 
1.220 

13089 DflTfll88. 141 .221 . 1HH. 16^.^4. 
141. 172.191 .16995.141i73.ioi.-tJ, 
177.258 

15098 DATR32. 8.138- 169- 92. 141 > 172 
.191-141, 173- 191. 23ft, 8 4-169.3.285 
.8,4 

1W95 DATR240. 17, 173.8.4. ?A 

13109 DRTM85.4S, 141 134. 1««, t«9. 
5.32.0. 137.76.fl- 1 35. "6 

20098 REN******M********tmnM 

29001 REM* ROUTINE FN I . M POMP ( 

20002 REMt ie f-FPl flrEMENT r-r-=; t 

29993 REM* PEF.snMHRr.FS t 

20004 PEMt'*t**»tttttf MMTtffttlt 

20095 REM — 1 — 

29018 FQRA-ll9^«Ur,ii9-.'l f-EW-B r-"4 
Efl.8 NEXTfl 

29029 DHTA169 '2 . 295- 19*"' l^fl 248. 
50- 160-0. 185. 110. 199. 15^-126. 189 

2B025 DflTft299. 185. 11(3-1*0. 153. 12* 
-189.132.24.183- 39. 168- 19>, l?it.?40 
.3 

20030 DATR769. 147. 169. 32. 141 .110 

190.141, 111-190.141 150 19*. Ml 1 
31 199 

20033 DfiTfiMl . ]y»i. I^fl Ml . l?i . l-i3 
.76- 111 -147.169. 32.20^-206.189.24(1 
.47 



29038 DRTftl27.1S9. 141.166- 189. 141 

-167. 109. 141. 296- 18«. 141 ,287.184.7 
6,96,149 

20935 REM — 2— 

29860 FORfl-lt9409TO«947i REflDR Rl* 
Efi. B NEXTfl 

20065 DflTflI69. 3? 285. *2.1«1 24u.% 
0, 169-0. 185.288- 199. 153. '24 1H-J 

20079 DATA200. 185.208, 199- l*.J./'4 
.189,132,24.103-39.168.192. 126,24.1 
.3 

20075 DATA76.9.146.169 32. 14 1 ..?.* 

190. Ml ,299- 199- Ml 249 190MI / 
49-190 

28980 DRTA141 ■ 32- 191 Ml I?. |«1.7 
6.111 . 148- 169. 32- 29^. 4* i ... > 4 ,i; 

29085 DATR168 9- 185-224. 1K9.|S3.> 
49, 188. 289. 183. 224, 189,153.248 I Sfl 
,132 



49 

20199 REM — 3— 

20105 FORR=«9<*0Tn»a3Fl RFHDF< pn* 
ER.B NEXTfl 

20119 DRTR169.32 2052.-V 188 ■"' 
50.160-0. 185-142. 189- |S 4. (£A, !-■■ 
08 

20115 DflTfll85- 142. 188- 1^3- 126- \*+ 
. 152.24. 103-39, 168. 192-12(3.249- <-7 
6.137 

20120 DATA147. 169. 32- 141 . 142, 1*3 
141. 143. 188. 141. 182. 188- 141- 183. 18 



20130 DATA160-9. 133. KV.. 1*9. 15 1 
19. 190. 299- 185. 126- 189. 15;, 110. 199 

20135 DATA152. 24. 105-39.168-192-1 
20-240-3.76.194 147 16°. 32- 141. 1 26 



20M5 DATH76-96, M9 

20150 REM — 4-- 

20155 F0RA««948MT0<t^4F'l PEA1-B POK 
FA . 6 NEXTA 

20160 DATA189. 32. 285, 64. 189.249-5 
0-160.0- 183.240- 18ft- 1^3 -224. 18*. 20 
? 

20165 DATA185.240, 18ft 1'. ' ' ' 
,152,24-105-39.168. 1^2, 129.240.3.7 
6.137 

20178 DflTfll48- 169.32- 141 -249- 188. 
141-241 .188-141-24-189. Ml .25. 189 

29175 DATA141 64-189-141 65.169-7 
6-239, 148- 169- 32-203.48. 198 24947 
■168.0 

20189 DATA185 224 199. 153208. 1*9 
.299- 185.224, 189. 133208 190. 1^2. 2 
4.183 

29185 DATA39 168. 192. 120.240.3.76 
.194. 146. 169. 32 -Ml- 224. 189- MI ,22 
3.169 

20198 DATR141 .8-190-141 9- 19*>- 141 
.48. 190, 141, 49. 199, 76. 96. 149 

20193 REM — 3— 

29280 FORA-#93P0Tnl|932A READB PO* 
ER.B NEXTA 

20205 DATA 189. 149. 205.6. 2-298. 3.7 
6.0- 147. 169. 140.203.8-2.208.3. 78. 1 
28.147 

20219 DflTfl169.I58.295 82 20«3 7 
6. 0.140. 169-176. 205. 8. 2 288 
28. 148 

20215 DfiTA76.96,149 

29220 FORfl-49550TOtt956F REHDP Pr» 

£ A & HE ''' T A 

20225 DflTfi72, 152. 72. 138. 72-174. ■». 
4,232. 142.9-4.224, 19.240.8. 104. 1 70 

104 

20230 DRTH168. 194.76.3.236. 169.0- 
141-9, 4, 76.0. 149 

20380 REM— AFFITHAIE SCORE " 

20319 F0RA»i9999Tri«8949 READB POK 
Efl.B NEXTfi 

28313 DRTfl248.24.189.2.4.!41,2.4. 
144.4.24. 32.65. 137.216- 162.9. 169. 2 
-32.29.137 

28320 DATR232. 169,9.32,29. 137.96 
189.2.4,1334,216.74.74,74.74.72.2 
4.105 



20489 REM— ROUTINE D'fiTTENTE — 

20410 FORR-48ft00TO*l8fil6 RFflDP Pr»K 
Efl.6- NEXTfl 

20420 DATA173.10.4. 178. 168. 1 36- 17 
8 202.224 240. 3 76 7 1 =8.192.9.? 
40.3 

20430 DftTA.76.5. 138.96 

25099 REM********************** 

25091 REM* ROUTINE PRINCIPALF * 

25002 REM***************(t*»ttt 

23010 FORR«*8r80TO487DF REHDB POK 
Efi. 6 NEXTA 

25020 DATA206. 1 .4. 169,9.2fl5- 1 .4.2 
00,22,238,6,4, 174.6,4.189-16-144.1 
41.1,4 

23923 DflTfll6997. 141 69.191 169.9 
8.141,61,191 

25030 DATA32.8, 128. 32, 0.130, 32-fl. 
132. 32. 0. 134.169M.197 

23940 DATfll . 298 , 49 , 1 74 . 20* . 1 *0 - *2 
4. 32. 240. 31. 173. 34. 191- 141 .172. 19f 
.173.35 

23030 DRTR191.141.173-t90.16fl 32. 
141.34, 191. 141. 35. 191, 169. 3. *2 fll 
37.32.0 

25960 DATR128. 76.99. 135. 169,32. 14 
1.34, 191.141.35,191.76.8.150 

25070 DFITR169.3. 197.1 208.49. 174. 
224.169.224,32.240.31.173.50. 199 

23980 DATA141, 188. 189-173. 51. 199, 
141, 189.189.169.32,141.50.190,141 . 
51,198 

23990 DflTfll69.5.32.0.137. 32..3. ! !0 
.76.154-135-169.32, 141 50.199. 141. 
31. 190 

23100 DflTA76.0. 150 169.3-197.1 . 20 
0,49. 174.240. 188. 224. 32 ,'49 31 1? 
.66.189 

23118 DHTA141.284. 188. 17367. 189 
14 1,205. 188- 169. 32. 141 66. 189. Ml. 
67, 189 
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FLIP 



Tl 99 BASIC ETENDU 



— I pePlKggg MiHuTg : 



Fini les grosses depenses dans les cafes . Aujourd'hui. 
grace au Tl, vous allez pouvoir faire des economies. 



Olivier GODART 



Mode d'emploi : 

S pour le flip de gauche, 

D pour le flip de droite. 

Une louche quelcongue pour lancer la bade. 



100 REM OLIVIER GODARD 

HO REM FLIP POUR TI-99 

120 HSC=334.B00 

130 CALL CLEAR tt CALL SCREEN ( 1 bit : RAND 

OHIZE 

140 CALL TITRE ■■ CALL FLIP ll CALL REGL 

ES 

150 CALL COMPTEUR 

160 C-07 

170 SC-000.000 s: BA«3 

180 Tl-0 it T2-0 :i T3-0 t: PO-O :i PI-0 

i i P2-0 
190 M-l : i BON-000 
200 L=l 

210 GOSUB 1690 :: GOSUB 1770 :: GOSUB IB 
10 it GOSUB 1900 
220 REM 

230 CALL KEYIO.K.S):! IF S-0 THEN 230 EL 
SE 240 

240 CALL MUSI DUE 
230 C-C-l :: GOSUB 1690 
260 REM «*••• 
270 REM "JEU" 
280 REM ***** 

290 ON L GOTO 310. 370. 460, 620. 7SO. 910. 99 
O, 1120. 1170. 1280, 1360. 1430 
300 REM ••••«•••• 
310 REM "LANCEUR* 
320 REM •*••*«••• 
330 CALL LDCATE(»20, 181.229) 
340 CALL KEY(0,K,S)it IF S-0 THEN 340 EL 
SE 7.50 

350 FOR YY-161 TO 17 STEP -16 tl CALL LO 
CAT£(#20,YY.229) i: FOR TIME-1 TO 40 It N 
EXT TIME :: NEXT YY 
360 REM •.»•••«•»»•*«••»• 
370 REM "COULOIR DU HAUT» 
3B0 REM •*»•*•••••»*•»»*# 

390 CALL LDCATE(#20,9,201) t I FOR I-l TO 
50 :: NEXT I t! CO-INT (RND"2) + 1 n IF CO 
-1 THEN CALL LOCATE (#20, 33, 203) ELSE CALL 

LOCATE! »20.33. 181 I 
400 CALL S0UNDC30. 387. OJlt CALL SOUND(50 
,323.0)11 CALL S0UNDI200, 387. 4) 
410 FOR I-l TO 100 ll NEXT I if P1-P1*1 
it IF Pl-3 THEN 420 ELSE 430 
420 GOSUB 1960 n Pl-0 n PO-l 
430 SC-SC+1.000 n BUN-BQN+1 I! B08UB IB 
10 : : GOSUB 1900 

440 L-INT<RND"3>+3 it IF L-B THEN 440 EL 
SE 290 

430 REM •••••»•#»••»•••• 
460 REM -TARGET DU HAUT" 
470 REM •••"•••••»••••»* 

480 IF Tl-4 THEN CALL LOCATE < N20. 4. 156) I 
: SC=SC+.500 it GOTO 590 

490 Tl-Tl+1 ii ON Tl GOTO 500.520.540.56 
O 

500 CALL L0CATE<#20,49, 156>i: CALL SOUND 
<50.-7.0)i: CALL DELSPRITE (#8! : ; DISPLAY 

AT(20.4)SIZE(2)("X2" 
510 M-2 ti SC-SC+1.000 tt BON=BON+ 1 t: G 
OTO 590 

520 CALL L0CATE(#20.33.156)u CALL SOUND 
(3O,-7.0)u CALL DELSPRITE (#9) : : DISPLAY 

AT<20,4>SIZE<2) l"X3" 
330 M-3 it SC-SC+l.OOO n &0N-60N. l || G 
OTO 590 

540 CALL L0CATE(#2O, 17, 136) t l CALL SOUND 
C50.-7.0Jn CALL DELSPRI TE (#10) i i DISPLA 
Y AT(20.4)5IZE(2)i"X3" ■■ CALL SPRITE(#1 
5,38. 10.3. 156) 

350 M-5 ii SC-SC+1.000 11 BON-BON* 1 ti G 
OTO 590 

560 CALL LOCATE (#20.5. 136) tl FOR I-l TO 
3 tl CALL S0UNDI50. 550.0) I t FOR Q-l TO 5 
O ■: NEXT i: NEXT I ti CALL DELSPRITE! 
• 13) 

370 C-C+I :i GOSUB 1690 
580 SC-SC+1.000 .-: GOTO 590 
590 GOSUB 1H10 t: GOSUB 1900 
600 L=INT(RND"4)+7 it FOR 1=1 TO 250 :i 
NEXT I : : GOTO 290 
610 REM **•••••• 

620 REM "ANNEAU" 

630 REM »*•»•»•* 

640 CALL L0CATE*#20. 43. 109) : t FOR 1=440 

TO 1430 STEP 110 t: CALL S0UNDI50. 1 . 0) : : 

NEXT I 
650 CALL LOCATE (#20. 29. 101) j t FOR I-I TO 

40 :: NEXT I i : IF T2-B THEN T2-0 
660 CALL LOCATE <«20, 13. 109) ii FOR 1-1 TO 

40 !i NEXT I t: CALL LOCATE (#20. 5. 123) : 
: FOR 1-1 TO 40 ll NEXT I ll CALL LOCATE 
(#20. 13. 141) 

670 FOR 1*1 TO 40 ii NEXT I t: CALL LOCA 
TE (#20. 29. 141) t : P2-P2+1 
6B0 IF P2-5 THEN 720 
690 IF P2-6 THEN 730 
700 IF P2<>3 AND P2<>6 THEN 710 
710 SC-SC+3.000 :i B0N-B0N+2 :i GOTO 750 
720 CALL SPRITE(#16.36. 14.3. 121) :: SC=SC 
+3.000 it B0N=B0N+2 it GOTO 750 
730 CALL L0CATE(»I6, 184, 137) t t DISPLAY A 
TI23.3)5IZE(5) : "SHOOT" :: DISPLAY AT<24. 
3>SIZE(5) : "AGAIN" 

740 SC-SC+5.000 ti BONaBON+2 :: &A=6A- 1 
:i GOSUB 1770 ll GOTD 750 
750 GOSUB 1810 ti QOSUB 1900 
760 L-INT(RND»4)+7 ii GOTO 290 
770 REM *»•«•••»•«•»*»#»*« 
7B0 REM "TARGET DE GAUCHE- 
790 REM •«•»•••»•»*•#»•#•• 

800 CALL LOCATE I H20.B1. 103) : i CALL SOUND 
130.-7.0)11 IF TT2-1 THEN GOSUB 2110 
810 T2=T2+1 ti ON T2 GOTO 820. B30. B40. 85 
0.B60.870 
820 CALL C0LOR(#5. 16): i SC-SC+1.000 :: 6 




ON-BON+) t: GOTO 8B0 

830 CALL C0L0R(#6. 16) : : SC-SC+1.000 I 

0N-80N+1 it GOTO 8B0 

840 CALL C0L0R(#7, 16): t SC-SC+1.000 i 

ON - BON » I :: FOR 1-1 TO 30 ii NEXT I tt F 

OR S=3 TO 7 ll CALL COLOR (#S. 7 ) : : NEXT S 

: : GOTO 880 
B30 GOTO 820 
860 GOTO 830 

870 CALL COLOR (#7. 16) : : SC-SC+1.000 I: B 
ONeBON+1 :: FOR I-l TO 50 t : NEXT I It F 
OR S=5 TO 7 ii CALl COLCR (»S. 7) ■ i NEXT S 

tt T2-0 it TT2-1 :; GOSUB 21 m : -• 5nT" 
8B0 

BSO GOSUB 1810 ll GOSUB 1900 
B90 FOR 1=1 TO 250 i: NEXT 1 n L-INTCRN 
D»4)+6 ti IF L=8 THEN 890 ELSE 290 
900 REM **»*»*•••••»•»••••• 
REM "COULOIR DE GAUCHE* 



' REM 



930 CALL LOCATE (#20. 133. 101) t i FOR 1-1 T 

75 ii NEXT I ti CALL LOCATE (#20. 156. 10 

3)11 FOR 1-1 TO 75 ti NEXT I 

940 IF PO-1 THEN 950 ELSE 960 

950 CALL LOCATE (#20. 165. 113)11 FOR 1=1 T 

50 ll NEXT I it SC-SC+3.H0 it BON-BON 

+1 ll GOSUB 2010 ll L-7 ll PO-O :: GOTO 

970 

960 CALL L0CATE(#20.1Bl.I09) t i FDR 1-1 T 

50 i: NEXT I tt SC-SC+3.110 it L-8 ii 
GOTO 970 

970 GOSUB 1810 it GOSUB 1900 tl GOTO 290 

9B0 REM •*•***•■•*■•• 

990 REM "FLIP GAUCHE" 

1000 REM »•"•*."••••«• 

1010 CALL LOCATE (#20. 16S. 133) 

1020 FOR 1=1 TO 10 it CALL KEY <0. K. S> i i 

IF K-83 THEN L=4 ii GOTO 290 

1030 NEXT 1 

1040 FOR 1-1 TO 10 it CALL KEY<O.K,S)n 

IF K-B3 THEN L-3 ii GOTO 290 

1050 NEXT I 

1060 FOR 1-1 TO 5 It CALL KEY(O.K,S)ll 1 

F K-83 THEN L-2 t I GOTO 290 

1070 NEXT I 

1080 FOR 1 = 1 TO 3 ii CALL KEY(O.K.S)n I 

F K-83 THEN L-12 It GOTO 290 

1090 NEXT I 

1100 L«8 i t GOTO 290 

1110 REM #•«««# 

1 120 REM "CAVE" 

1130 REM »»»••• 

1140 CALL L0CATE<*20. 1B3, 149) t t FOR 1-1 

TO 100 :: NEXT I t: GOTO 1580 

1 130 ON A GOTO 180.170 
1160 REM *»••»**•*#*« 
1170 REM "FLIP DROIT" 
HBO REM »***»#»*»••* 

1190 CALL LOCATE (#20. 164. 165) 

1200 FOR 1=1 TO 10 li CALL KEY(0.K.S)tt 

IF K=6B THEN L=3 tl GOTO 290 

1210 NEXT I 

1220 FOR 1=1 TO 10 i: CALL KEYCO.K,S)li 

IF K-6B THEN L»4 II GOTO 290 

1230 NEXT I 

1240 FOR 1*1 TO 10 :i CALL KEYIO.K.SMt 

IF K-6B THEN L«5 I I GOTO 290 

1230 NEXT I 

1260 L=8 i I GOTO 290 

1270 REM »#»•••••»•••••••••« 

1280 REM "COULOIR DE DROITE* 

1290 REM **»**»****.*.»***.* 

1300 CALL L0CATE(#20. 133. 197) i i FOR I"! 

TO 73 i l NEXT I u CALL LOCATE (#20. 162. 1 

93)11 FOR 1=1 TO 73 ll NEXT I 

1310 P1=P1+1 it IF Pl-3 THEN 1320 ELSE 1 

330 

1320 GOSUB 1960 it Pl-0 ti PO- 1 

1330 SC-SC+1.100 :i GOSUB 1810 

1340 SC=SC+0. 1 ii GOSUB 1810 it L=9 it G 

OTO 290 

1350 REM **«****»•**••»»•**•»••*»»* 

1360 REM "COULOIR D"EXTREME DROITE* 

1370 REM *»*»*»**•*******»**.*•»•#* 

13B0 CALL LDCATE(»20.13B.211):i FOR 1=1 

TO 75 :: NEXT I it CALL LOCATE ( #20. 1 77. 2 

04):: FOR 1=1 TO 75 i: NEXT I 

1390 IF SP=I THEN 1400 ELSE 1410 

1400 FOR 1=1 TO 3 : : CALL SOUND (50. 550. 

):: NEXT I ii CALL DELSPRI TE (• IB) I : C-C+ 

1 :: GOSUB 1690 :i SC-SC+5.000 :: GOSUB 

1910 it L-B It GOTO 290 

1410 SC=SC+3.000 :t GOSUB IB10 :: L=B :: 

GOTO 290 
1420 REM »••«..••.......... 

1430 REM "TARGET DE DROITE* 
1440 REM ****••*••••••••»•• 

1430 CALL LDCATE(»20,97. 197) t i CALL SDUN 
DI30. -7.0>li IF TT3=1 THEN GOSUB 2110 
1460 T3-T3+1 t: ON T3 GOTO 1470. 14B0. 149 
0, 1500, 1510, 1320. 1530, 1540 
1470 CALL COLOR (#1 1 . 16) : : SC-SC+1.000 tl 

BQN-BQN+1 it GOTO 1350 
1480 CALL C0L0R!#12. 16)11 SC-SC+1.000 :: 

B0N=B0N+1 :: GOTO 1550 
1490 CALL C0L0R(#13. 16) t : SC=SC+1.000 :: 

B0N=B0N+1 :: GOTO 1550 
1300 CALL C0L0R(K14. 16) :: SC-SC+1.000 t: 

BQN-BON+1 it FOR I-l TO 30 l: NEXT I :: 

FOR S-ll TO 14 it CALL COLOR (#S. 8) : i NE 
XT S l : GOTO 1550 
1310 GOTO 1470 
1520 GOTO 1480 
1530 GOTO 1490 
1540 CALL COLOR ;(#14, 16) : ; SC=SC* 1.000 tl 

B0N=B0N+1 i: FDR 1-1 TO 50 I ; NEXT I ti 

FOR S-ll TO 14 it CALL COLOR (#S. B) : : NE 
XT S tt T3-0 :■ TT3-1 :: GOSUB 2110 ii G 



OTD 1550 

1350 GOSUB 1810 :: GOSUB 1900 

1560 FOR 1=1 TO 200 :: NEXT I ti L-INT(R 

ND*5)+7 it IF L-B THEN 1560 ELSE 290 

1570 REM *•*•••• 

13B0 REM *PERDU* 

1590 REM ••*••*• 

1600 SC-SC+BON*M :i GOSUB 1B10 

1610 CALL HCHARC20. 6, 109.21:: CALL HCHAR 

(23,5,109,5)t: CALL HCHAR (24. 5. 109. 3) 

1620 FOR 1=15 TO IB i: CALL DELSPRITE(»I 

)t: NEXT I 

1630 FOR 1=1 TO 1000 it NEXT I it CALL F 

LIP 

1640 IF BA=1 THEN 1630 ELSE 1660 

1650 BA-0 :: GOSUB 1770 :: GOSUB 2030 :: 

GOTO 170 
1660 BA=BA-1 it GOSUB 1770 ti T1.T2.T3.T 
T2.TT3.P0.P1.P2-O ti BON-000 it SP=0 it 
M-l :: L-l 

1670 GOSUB 1900 :: GOTO 270 
1680 REM ••*»•»«* 
1690 REM "CREDIT* 
1700 REM ••***•»• 
1710 IMAGE H« 

1720 DISPLAY AT ( 2. 8) S I ZE ( 2) i US ING 1710iC 
1730 RETURN 
1740 REM ****** 
1750 REM *BALL* 
1760 REM •••••* 
1770 IMAGE # 

17B0 DISPLAY AT14.B)SIZE!1) lUSING 1770:B 
A :: IF BA-0 AND C-0 THEN GOSUB 2040 it 
CALL CLEAR ■■ CALL DELSPRI TE (ALL) t I END 
1790 RETURN 
1800 REM ******* 
IBIO REM "SCORE* 
1820 REM •••«••• 
1B30 IMAGE #«#.«## 

1840 DISPLAY AT (6. 3) SI ZE (7) i USING 1830:S 
C ii IF XC-1 THEN 1B80 tt IF ZX-1 THEN 1 
B30 tt IF 50-200 THEN I860 ELSE 1880 
1B50 IF SOHSC THEN 1B70 ELSE 1BB0 
1860 FOR 1-1 TO 3 ii CALL SOUND (50, 440. 
)ti NEXT I it C«C+1 tt GOSUB 1690 n FOR 

Z-l TO 30 ll NEXT Z tl ZX-1 it GOTO 188 

1970 FOR Q>1 TO 2 I! C#C*1 II FOR I"l TO 
3 ii CALL SOUND < SO, 440. 0) I i FOR W- I TO 

50 :: NEXT U It NEXT I ti NEXT Q it XC-1 
ii HSC-SC t: GOSUB 16B0 

1880 RETURN 

1B90 REM ***»*»» 

1900 REM "BONUS" 

1910 REM ••••••• 

1920 IMAGE ## 

1930 DISPLAY AT ( 16. 8) S 1 ZE (2) I USING 1920: 

BON 

1940 RETURN 

1950 REM »»*•••••••»»*•* 

1960 REM "PORTE OUVERTE* 

1970 REM •*»•»»••»•"•"#• 

1980 CALL HCHAR(22. 13. I03)n CALL HCHAR ( 

22, 14. 104) 

1990 RETURN 

2000 REM **•«***»*.***. 

2010 REM "PORTE FERMEE* 

2020 REM ••*•*•#•*>*••* 

2030 CALL HCHAR(22, 13, 102)ii CALL HCHAR ( 

22, 14.32) i : RETURN 

2040 REM •••••••• 

2050 REM "RECORD" 

2060 REM •*•••••» 

2070 IMAGE ###.### 

2080 DISPLAY AT(6.3)SIZE(7) tUSING 2070:H 

SC :: FOR 1=1 TO 250 it NEXT I 

2090 RETURN 

21O0 REM ••••••••• 

2110 REM "SPECIAL" 

2120 REM *****»•*» 

2130 IF TT2=1 AND TT3- I THEN CALL SPRITE 

(#1B. 36. 10. 161.229):: SP-1 

2140 RETURN 

2150 SUB TITRE 

2160 CALL CHAR(36,' , 010101010101010101010 

10101010101FF01013F20203C04043C202020202 

OEO") 

2170 CALL CHAR (40. "01 1010 1 101010101010 

10101010101FFFFFFFFEOEOFCFCFCFCE0EOE0EOE 

OEO") 

21B0 CALL CHAR(44. "O 10 10101010 10101 01 1 O 

10I01010101E020202020202020202020203FOIO 

IFF") 

2190 CALL CHAR(60. "OIOI O1010 10 10 10 1 1 1 

10101 01010 1EOEOEOE0EOE0EOE0E0E0E0E0FFFFF 

FFF") 

2200 CALL CHARl 128. "01010101010101010101 

010101010l01E020202u2020202U202020202020 

20E0" 1 

2210 CALL CHAR(132."010101010101010I0101 

010101010 1 01 EOEOEOEOEOEOEOEOEOEOEOEOEOEO 

EOEO") 

2220 CALL CHAR ( 1 36. "01010101010101010101 

0101010101O1FC02013929293901023C20202020 

20E0") 

2230 CALL CHAR (140. "010 10101 OlUtOlOlOlOl 

O1O101O101O1FCFEFFFFEFEFFFFFFEFCE0EOEOEO 

EOEO") 

2240 CALL MAGNIFY (4) 

2230 X=29 ti Y=9 :: COL-4 ii N0Tt=440 ;; 
V0L-*O 

2260 FOR S^l TO 10 :i CALL SPR I TE ! #S. 7.6. 

r:OL.T.X, :: CALL S0UND(15.NOTE.VOL>iI COL 

=CDL+1 :: V-V+B II <=X*4 :: NOTE-NOTE+11 

:: VOL=VOL*I 1: NEXT S 

2270 CALL POSITION (#10. YY. XX) t I CALL SPR 

1 TE (Ml, 40.0, W. XXI 

22B0 FOR 1-1 TO 10 t: CALL DELSPRI TE (■ I ) 



: : NEXT I 

2290 X-97 li Y=9 :i C0L=4 :: NOTE-440 :: 

VOL-0 
23O0 FOR S=l TO 10 it CALL SPRI TE (#5. 44. 
COL.Y.X)!! CALL SOUND( 1S.N0TE. VOL) i i NOT 
E-NOTE+UO li VOL-VOL+1 ti COL-COL + 1 n 
Y-Y+B it NEXT S 

2310 CALL P0SITI0N(#10.YY.XX) t i CALL SPR 
1TE(#12.60.B.YY.XX) 

2320 FDR 1-1 TO 10 ll CALL DELSPRI TE (# I ) 
ll NEXT I 

2330 X-129 ti V-9 it COL-4 t: N0TE=440 : 
: VDL=0 

2340 FOR S=l TO 10 tt CALL SPRITE I #S. 1 28 
,COL,Y,X):i CALL SOUND 1 15, NOTE. VOL) i i NO 
TE=N0TE+110 :t V0L=V0L+1 :: C0L=CDL*1 t: 

Y-Y+8 it NEXT S 
2350 CALL POSI TION (#10. YY. XX ) i t CALL SPR 
ITE(#13.132.8,YY.XX) 

2360 FOR 1-1 TO 10 it CALL DELSPRI TE (#1 ) 
it NEXT I 

2370 X-186 :: Y=9 :: C0L=4 :: N0TE=440 t 
: VOL-0 

23B0 FOR S-l TO 10 ii CALL SPRI TE (#S. 1 36 
.COL.Y.X)!-. CALL SOUND* 15. NOTE. VOL) :: NO 
TE-NOTE+110 tl VOL-VOL+1 ll CQL-COL+1 :: 

Y-Y+8 it X-X-4 ii NEXT S 
2390 CALL P0SITI0N(#10. YY.XX) I I CALL" SP 
RITE(#14. 140, B. YY.XX) 

2400 FOR 1-1 TO 10 it CALL DELSPRI TE (# I ) 
li NEXT I 

2410 FOR A-l TD 10 ii COL-INT (RND"13) +3 
II FOR S-ll TO 14 it CALL COLOR 1«S, COL) t 
t NEXT S i: FOR I-l TO 23 :: NEXT I it N 
EXT A 

2420 FOR DELAI=1 TO 100 it NEXT DELAI 
2430 CALL DELSPRITE {ALL) : : CALL CHAR(46. 
■0O0000001B1B0B1" ) 
2440 SUBEND 
2450 REM »»##•• 
2460 REM "FLIP" 
2470 REM •»•«•» 
24B0 SUB FLIP 

2490 CALL CHAR (9B, "OOFCFEFFFFFEFCOO") 
2500 CALL CHAR(99."00007FFFFF7FO00O") 
2310 CALL CHARl 100, "OOOOFEFFFFFEOOOO") 
2320 CALL CHAR ( 101 . "003F7FFFFF7F3F00" ) 
2SI0 C3LL CHAR I1U2, "8090009080909080") 

2540 CALL CHAR ( 103, "804020 100B0402O1 " ) 
2330 CALL CHAR ( 104. "OOOOOOOOOOOOOOFF" 1 
2560 CALL CHAR ( 103, "010204081 0204080" ) 
2370 CALL CHAR ( 106. "0101010101010101 " > 
23B0 CALL CHAR ! 107. "FF" ) 
2390 CALL CHARI108, "01010101010101FF") 
2600 CALL CHARl 109, "FFFFFFFFFFFFFFFF") 
2610 CALL CHARI110. "BOCOEOFOFSFCFEFF" ) 
2620 CALL CHAR 1 1 1 1 . "FFFEFCFBF0EOCO80" ) 
2630 CALL CHAR ( 1 1 2. "0103070F 1F3F7FFF" ) 
2640 CALL CHARI113.-FF7F3F1F0F070301") 
2650 CALL CHAR 1 1 1 4 . "BOBOCOCOEOEOFOFO" ) 
2660 CALL CHAR 1 1 1 3, "F8F8FCFCFEFEFFFF" ) 
2670 CALL CHAR ( 1 16. "01O1O303O707OF0F" ) 
26B0 CALL CHAR 1 1 17. "1F1F3F3F7F7FFFFF") 
2690 CALL CHAR ( 1 18. "0000000000031 FFF" ) 
2700 CALL CHARl 119, "0000010F7FFFFFFF") 
2710 CALL CHAR(120,"073FFFFFFFFFFFFF") 
2720 CALL CHAR I 36, "3C7EFFFFFFFF7E3C" ) 
2730 CALL CHARI37. "EOEOEOEOEOEOEOEO") 
2740 CALL CHAR (3B, "FFFFFF" ) 
2750 CALL MAGNIFY(l) 

2760 FOR 1-9 TO 12 it CALL COLOR ( I . 3. 1 ) t 
: NE X T I 
2770 DISPLAY AT I 1 . 1 1 ) t "mokkkqmkkmmokkkkq 

27B0 DISPLAY ATI2.11)t"o q mo 

q" 

2790 DISPLAY AT ( 3, 1 1 > t "f pmn j m 

J " 

2800 DISPLAY AT (4, 11):"+ mmn , m m m 



2810 DISPLAY AT 15,11):" 

J " 

2820 DISPLAY AT (6,11) t" 

J " 

2B30 DISPLAY ATI7.11)t" 

) " 

2840 DISPLAY AT (8. 11):" 

j" 

2850 DISPLAY ATI9.11):" 

j" 

2860 DISPLAY ATdO.ll): 

2B70 DISPLAY AT ( 1 ! , 1 1 ) i 

J" 
2880 DISPLAY AT(12,11): 

2890 DISPLAY AT(13.11)i 

2900 DISPLAY AT (14. llli 

J " 
2910 DISPLAY AT(15.11)i 

J " 
2920 DISPLAY AT(16.11)t 

J " 
2930 DISPLAY AT(17.11)i 

j" 
2940 DISPLAY AT(18.11)l 

j" 
2950 DISPLAY AT (19. 11)1 

J" 
2960 DISPLAY AT(20.11)I 

j" 
2970 DISPLAY AT(21.11)i 

)" 
2980 DISPLAY AT (22. 11): 
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JAMES BOND 



Cette fois, notre sympathique JAMES devra demontrer 
ses qualites de nageur En effet. la recherche de lin- 
gots dor au fond dune mer peuplee de requins vora- 
ces, risque de faire des bulles. 






Mode d'emploi ; 

Les regies sont mcluses 



1 REM tHHHIHIItlllHM 

• THIBERCE ERIC * 

• PRESENTS # 

• * 
» JAMES BONO 007 » 



I-19B5* 

HiMiiiKiiiiiiiiit 
3 go SUB 9000 GO SUB 9500: B 
ORDER B. PAPER 5. INK 7: CLS 

3 GO SUB 9101 

4 GO SUB 9151 

5 LET U«»: LET vi=3: LET rt« 
IB LET *C««: LCT t"0: LET nbOf« 


6 GO SUB 9400 

7 LCT *C«*C+.l: PRINT PT 20,7 
, INK 7; PAPER 0; INUERSE l.INT 

sc 

8 PRINT RT 19,10, INK 7, PAPE 
R 0, INUERSE l,nbor;AT 21,6; INK 

7, PAPER 0, INUERSE l,vi 

10 LET i«»INKEY* 

11 QO SUB 900 

13 IF INKCYtO-'S" THEN GO TO 8 


13 PRINT AT nl.na;" 

1* LET na»r>3-l; LET pn»3. IP n 
2<0 THEN LET na»31 

15 IP SCREEN* (nl.na) c>" " THE 
N LET tOUChe-5: GO SUB 9301 

16 GO SUB 900: GO TO 60 __ m 
20 IF INKEY»<>"6- THEN GO TO 3 



23 PAINT AT nl.na;" " 
84. LET nl«nl + l: LET pn«3 

25 IP SCREEN* tnl.nai (>■■ " THE 
N LET tOUChe»6: GO SUB 9201 

26 GO SUB 900: GO TO 60 

30 IP INKEY«<>"7" THEN GO TO 3 
9 

33 PRINT AT ni.n8.j_" " 

3* LET nl«nl-l: LET pn«l IP n 
1<3 THEN LET nl-3 

35 IP SCREEN* inl.nato" '■ THE 
N LET tOUCht-7: GO SUB 9801 

36 GO SUB 900: GO TO 50 

40 IP INKEY*< >"8" THEN GO TO 5 


*3 PRINT AT ni.nBj" " 

44 LET na«n8tl: LET pn»4: IP rt 
2>31 THEN LET n2«0 _ 

45 IP SCREEN* KiLniio" THE 
N LET tOUCht-8: 00 SUB 9801 

46 GO SUB 900: GO TO 00 

50 IF INKEY»<)"0- THEN GO TO 6 

81 IP re-0 THEN DEEP 1,-lZ 00 

TO 60 

52 LET fl-nl: LET f8«n2: LET r 

e»re-i: print AT rl.ra, ink a, P 

APER 0-"»". BEEP 1,10: LET ir»l 

53 IP SCREEN* (nl + l.nS) ■>" " TH 
EN LET nianl+1: GO TO 60 

54 IP SCREEN* (ni-l,nai"" " TH 
EN LET nl-nl-1; 00 TO 60 

55 IP SCREEN* lni,natl»«" " TH 
EN LET na«n2+l GO TO 60 

56 IF SCREEN* (nl.na-l)a" " TH 
EN LET nami-l 00 TO 60 

60 PRINT AT tl.tli PAPER 5," 
63 IF ni«3 AND n2»83 THEN FOR 
i -0 TO -10 STEP -1: DEEP .01, i: 
NEXT i; LET blOC»0: IP nbor»i0 T 
HEN GO TO 9900 

65 IP Kfml THEN LET X«rl; LET 
y»r8: LET lat+1: GO TO 69 

66 IF l.r.0 THEN LET X «n 1 ; LET 
.•n8: GO TO 69 

69 IF t>40 THEN LET 1*0: LET l 
r«0: PRINT AT ri.ra; PAPER 0;" 

70 PRINT AT PI, pa," ■' 

71 IP P1<X THEN LET Pl«Pl+l: 
SUB 9950 

7a ip attr tpi,pa)«a then beep 

.1.60: LET ir«0; GO TO 90 

73 IF SCREEN* lpl,pai<>" " THE 
N LET Pl»pl-1 

74 IF pi 
SUB 9950 

75 IF ATTR [pl,pai»8 TMEN BEEP 
.1,60: LET l r ■ ® . GO TO 90 

76 IF SCREEN* tpl.pSJO" " THE 
N LET Plapl+1 

77 IP pa<y THEN LET P8-&2.1 L 
ET PP-1 GO SUB 9950 

78 IP ATTR (Pl,pa»*a THEN DEEP 
.1,60: LET U«0: GO TO 90 

79 IP SCREEN* <pl,p2)<>" " THE 

n let _a»_a-i 

so ip pa>y then let pa-pa-i: l 

ET pp=3; GO Cue 9950 

81 IP ATTR (Pl,p8)«a THEN BEEF 
.1,60: LET ir-0. GO TO 95 

82 IF SCREEN* lpl,p3M>" " THE 
N LET pa=p2tl: GO SUB 900 

100 IP Lf"l THEN LET X»rl; LET 

u-ra 

110 IF U=0 THEN LET x =n 1 LET 

u»na 

140 GO TO 7 

900 IF Pn»l THEN PRINT AT nl,n2 
, INK 7, PAPER 0. -G": GO TO 930 

905 IF rn»8 THEN PRINT RT m,na 
, INK 7, PAPER 0, 'H": GO TO 930 

910 IF pr.*3 THEN PRINT RT nl.na 
, INK 7; PAPER 0;'-I ,p GO TO 930 

920 IF pn«4 THEN PRINT PT nl.na 
, INK 7, PRPER 0,'L": GO TO 930 

930 IP PP»1 THEN PRINT AT P1.P2 



THEN LET Pl-Pl-1: 




Eric THIBERGE 



, INK 7, PAPER 0,"O" GO TO 950 
940 IP PP«8 THEN PRINT AT P1.P2 

, INK 7, PAPER 0, "0" GO TO 950 
970 RETURN 

9000 FOR i*0 TO 8*21-1 RERD I*: 
POKE USR "4"*i,t«: NEXT i 

9010 OATA £, BIN 00111110. 3, BIN 1 

3031130, BIN 11110010, BIN 0011111 

0.BIN 00010100, BIN 00111110 

9012 DATA 24, 54, BIN 00110100.BIN 
00101100, BIN 00110100, BIN 00101 
100, BIN 00110100, BIN 01100010 
9014 DATA 255, 855, BIN 00100100, E 
IN 00100100, 255, BIN 01010010 , BIN 

00 10100 1,6 IN 11011111 
9016 OATA BIN 01010110, BIN 01001 
010, BIN 01110110, BIN 01010110,25 
5. BIN 01001001.BIN 00100100,255 
9018 DATA BIN 00001100.BIN 00111 
100, BIN 01010010.BIN 0101001,255 
.BIN 00100010.BIN 10010100, BIN 1 
1111011 

9020 DATA BIN 00010100.BIN 00010 
100, BIN 00010100.BIN 00100010,61 
N 01000001.BIN 00111110,256,865 
9022 DATA 24, BIN 00100101. BIN 00 
011001.BIN 01111110, BIN 10011000 
.BIN 00100100.BIN 01110100, SIN 
0001110 

9024 DATA BIN 01100000.BIN 00010 
001, BIN 01010111.BIN 10111001,61 
N 10111010, BIN 01010110.BIN 0001 
0010,8 

9026 DATA BIN 01110000, BIN 00101 
110, BIN 00100100.BIN 00011001, BI 
N 01111110, BIN 10011000, BIN 1010 
0100,24 

9029 DATA 0,126, DIN 01110000, BIN 
10001111, BIN 01110000, BIN 01011 

111, BIN 11101101, BIN 10111111,0, 
0.BIN 00110111, BIN 11001000, BIN 
00110111, BIN 11011011, BIN 011011 
01.855 

9030 DATA 16, BIN 01001000.BIN 01 
101010, eiN 01011101, BIN 10011101 
.BIN 11101010, BIN 10001000,6 
3038 DATA 1.6, 9, BIN 00110111, BIN 

01011111.BIN 01010101.BIN 01011 
111, BIN 10101101 

9034 DATA 128, BIN 01100000, BIN 1 
0010000, BIN 11101100, BIN 1111101 
0.BIN 10101010, DIN 11111010. eiN 
10110101 

9036 DATA 0.DIN 00110000, DIN 100 
11000, BIN 01011110.BIN 01111101, 
BIN 0l011110.BIN 10011000.BIN 00 
110000 

9038 DATA , , ,0 , 60 , BIN 0111111 
0,855,0 

9049 ORTfl 0,12, BIN 00911.091. BIN 

01111010, BIN 10111100, BIN 011110 

10. DIN 00011001 . 12 

9042 DATA 0.DIN 00100010, DIN 010 

10101, DIN 01110111, eiN 01011101. 

BIN 01110111, BIN 01110111,0 

9044 DATA 0,0, 0,7, BIN 00111111,8 

55.855,855 

9046 DATA 0.OIN 00001100.BIN 000 

11100, BIN 01111110, 255, DIN 01111 

110,0,0 

9048 DATA 0.OIN 01111100, DIN 000 

10000.BIN 00110001.BIN 01001111, 

BIN 01111100, BIN 00101000.BIN 01 

111100 

9100 RETURN 

9101 FOR »=3 TO 21: PRINT AT i,0 
. PAPER 0. " 

: NEXT i 

9108 PRINT AT 3,0, INK 0, PRPER 
5, ■■5S5SSSSSSSSSSSS55S5SSSSSSSSS5 
SSS" 

9105 PRINT AT 3,83, INK 0, PAPER 
5;"FFF";AT 1,33, INK 0; PAPER 5 

,"CDE' , ,AT 0,83; PRPER 5; INK 0, " 

US' 

9107 PRINT AT 17,7, INK 3, PAPER 
0, "MJKJN", AT 18,6, INK 3, PAPER 
0,"SGN JKJKJN";AT 18,24; INK 3; 
PAPER 0, MJKN" 

9109 PRINT AT 19,0, INK 3, PAPER 
0, '■ tlKJKJKJKJKJKJJKN MJKJK 

9111 PRINT AT 30,0, INK 3, PAPER 
0, "JKJKJKJKJKJKJKJKJN MJKJKJ 
KJKJ" 

9113 PRINT AT 81,0, INK 3, PAPER 
0, "JKJKJKJKJKJKJKJKJKJKJKJKJKJK 

JKJK" 

9114 PAPER 

9116 INK 0. PLOT 58,178: DRAU 5, 

ORAU 1,1 DRAU 10,0 DRAU 1,- 

1 ORAU 5,0 DRAU 1,-1; DRAU -1, 
-1: DRAU -5.0. DRAU -1,-1: DRAU 
-10,0: DRAU -1,1: DRRU -5,0: DRA 
U -1,1 

9113 INK 0. PLOT 116,172: DRAU 5 
.0: DRAU 1,1 DRAU 10,0; DRAU 1, 

-1 DRRU 5,0 DRAU 1,-1: ORAU -i 
,-1 DRAU -5,0: ORAU -1,-1: DRAU 
-10,0. DRRU -1,1. ORAU -3.0: DR 

AU -1,1 

9120 INK PLOT 230,172: DRAU 5 
,0 DRAU 1,1 ORAU 10,0: DRAU 1, 
-1 DRAU 5,0 ORAU 1,-1: DRAU -1 
.-1: ORAU -5,0: ORAU -1,-1: ORAU 

-10,0. DAAU -1,1; DRAU -5,0: DR 
AU -1,1 

9121 INK 0: PLOT 8,168: ORAU 1,1 
ORAU 2.0. ORAU 1,-1 DRAU 1.1: 

DRAU 2,0: DRAU 1,-1 

9122 POR 0*0 TO 10 



9123 LET 01=4 

9184 LET 08=INT (RND*29)+1 

9185 IF SCREEN* lol*l,08>-" " TH 
EN PRINT AT 01,08, INK 6, PAPER 
0,"P": BEEP .01,-01 PRINT RT 01 
,03, PAPER B." "'■ LET ol-01+l G 
TO 9185 

9136 PRINT AT 01,03, INK 6, PARE 
R 0,"P". DEEP .01.10: BEEP .01.8 
BEEP .01.30 
9187 RANDOMIZE : NEXT 

9150 RETURN 

9151 LET nl=3 LET n3=ai 

9152 LET el»l LET e2=82 

9153 LET pl«5 LET p2*0 

9154 LET pp=l 

9155 LET pn=l 

9156 LET pe = l 

9157 LET Sl = 10 LET S2-0 

9158 LET blOC»0 

9164 LET <.b«0 

9165 LET nb=ll 

9166 LET bt=0 
9200 RETURN 

9801 IF ATTA mi,n3)=3 OR ATTR I 

nl.na) >3 OR blOC-1 THEN GO TO 93 

10 

9303 GO SUD 9950; PRINT RT nl,n3 

, PAPER 0, '• ■' 

9203 BEEP .01,10: DEEP .01,20. B 
EEP .01,30 LET b<.OC«l 

9204 LET nbor*nbOf+l 

9209 RETURN 

9210 IP tOUCh«=S THEN LET n2=n3+ 
1: RETURN 

9311 IF tOUCh«=6 THEN LET nl«nl- 
1 : RETURN 

9212 IF tOUChe=7 THEN LET ni=ni* 
1. RETURN 

9213 IF tOUCK«=8 THEN LET n2=n2- 
1. RETURN 

9370 PRINT AT nl.na, INK 7, PRPC 
R 0, FLASH 1, '■«■■': POR i »« TO -40 
STEP -1: BEEP .01, i NEXT i; PR 
INT AT ni,n8, INK 7, PAPER 0; FL 
ASH 0; ■' - 

9375 LET vi«vi-l; IF v>>« THEN G 
TO 9600 
9360 GO SU 

9400 PRINT r,, «»,*, •■ 
7, INUERSE 1, "SCORE 

9401 PRINT AT 81,1, INK 7, PAPER 
0, INUERSE 1, "UIES: 3" 

9403 PRINT RT 19,7, INK 7, PAPER 

0, INUERSE 1, 'OR: 
94 10 RETURN 

9500 BORDER 0: PAPER 0: INK 7. C 
LS 

9501 PLOT 0,0: DRRU 265,0. ORAU 

0,170; DRAU -368,0: ORAU 0,-178: 
PLOT 31.143: DRAU 84,0; DRRU 0, 
-e DRRU -8,0: DRRU 0,-16: DRAU 
-16,-16: DRAU -8,0. DRRU -16,16 
DRAU 8,0: DRAU B.-6 DRAU 6,0: 
ORAU 8.8: DRAU 0,16. DRRU -6,0; 
ORAU 0,8 

9S05 PLOT 63,143: DRAU 34,0: ORA 
U 0,-40 DRRU -6,6. DRAU 6,8; OR 
AU -8,0 DRAU 0.-8: ORAU -8,-6 
ORAU 0,40; PLOT 71.135: ORAU 8,0 
. DRRU 0,-8: DRRU -6.0; ORAU 0,8 
9510 PLOT 95,143: ORAU 8,-16: DR 
AU 8,0: DRAU 6 , 16 DRAU 0,-40: 
RRU -8,16: DRRU -4.-6: ORAU -4,8 
. DRAU -8,-16. DRRU 0,40 
9515 PLOT 187,143: DRAU 84,0: DR 
AU 0,-8: ORAU -16,0 DRAU 0,-8. 
ORAU 8,0. DRAU 0,-6; DRRU -8,0 
DRAU 0,-8. DRAU 15,0 ORAU 0,-8. 

DRflU -84.0. DRAU 0,40 
9530 PLOT 167,143. DRflU 16,0: DR 
AU -8,-8; OAAU -8,0: DRRU 0,-8. 
DRRU 16,-16; DRAU -8,-8: DRAU -1 
6,0: DRAU 8,8: DRAU 8,0. ORAU -1 
6,16; DRAU 0,8; DRAU 8,8 
9585 PLOT 127,95: DRAU 16,0; DRA 
U 8,-8 DRAU 0,-8. DRAU -8,-4: 
RAU 8,-4: ORAU 0,-8: DRRU -8,-8. 
DRAU -16,0: DRAU 0,40 PLOT 138 
,87: DRAU 8.0: DRAU 0,-8: ORAU - 
8,0: DRAU 0,8: PLOT 135,71: DRAU 
8,0: DRRU 0,-8: DRAU -8,0: DRAU 
0.8 
9530 PLOT 167,95. DRAU ?,0 DRflU 
8,-8 DRAU 0,-24; DRflU -8,-8 
RAU -8,0: DRAU -8,8. DRflU 0,24 
DRflU 3,8; PLOT 167,37 DRAU 8,0: 
DRAU 0.-24. ORAU -3.0 ORAU 0.8 
4 

9535 PLOT 191,95 ORAU 16,-16. 
RAU 0,16. DRAU 8,-8 DRRU 0,-24: 
DRAU -8,-S DRAU 0.8 DRAU -8.6 
: DRRU 0,-8 DRAU -8,-8. ORAU 0, 
40 

9540 PLOT 333.95: DRAU 16.0. DRA 
U 8,-6; DRAU 0,-34: DRRU -8,-8. 
ORAU -16,0: ORAU 0.40 PLOT 331, 
87: ORAU 8,0: DRAU 0,-84 DRAU - 
8,0: DRflU 0,34 

9545 PLOT 135,47; DRflU 16,0. DRfl 
U -16,-16; DRflU -16,0 DRRU 16,1 
6: PLOT 137,45: ORflU 12,0 DRflU 
-13,-12. DRAU -12,0: ORAU 18,13 
9550 PLOT 159,47 ORAU 16,0: DRfl 
U -16,-16: DRRU -16,0: DRflU 16,1 
6 PLOT 161,45: DRAU 18,0; DRAU 
-12,-12: DRAU -12,0: DRAU 12,12 
9555 PLOT 167,32: DAAU 10,10; DR 
AU 0.3 ORAU 4,0. DRAU 0,8 ORAU 
-4,0; DRAU 0,-2. DRAU 3,3 ORAU 
16,0; DRAU 3,-3: DRAU 13,0: DRA 



U -3,-3 DRRU -20,0: DRAU -8.-3, 

PI/2; DRAU 8, 3, -(PI/8). ORAU -8, 

-3, PI/2 

9560 DRRU -8,-7; ORAU -6,0 

9570 PRINT RT 19, 19, "LA MER DES" 

,RT 20,23, XARfllBES". AT 18,33. "0 

ANS" 

9580 PRINT AT 1,13, "CCLl PRESENT 

E" 

9590 PRINT AT 5,27, "B", AT 6,26," 

C0E",AT 7.84, "5SFFFSS" 

9600 PRINT AT 12,13, INK 7;"X";fl 

T 18,13. INK 6;"P";AT 14,8; INK 

7; "O" 

9610 PRINT AT 11,9, INK 7,"T" 

9630 PRINT AT 17,7, INK 3, "MJKJN 

",AT 18,6, "MJKJKJN", AT 19,1; "JKJ 

KJKJKJKJKJKJKN 1 ", AT 80, 1, "JKJKJKJ 

KJKJKJKJKN" 

9630 PRINT AT 4,84, INK 7,"fl" 

9650 FOR i «0 TO 51 

9660 READ 4 ; READ b 

9670 BEEP a,b*10; NEXT i 

9671 DATA . 5 , -11 , . 5 , -4 , . 25 , 1 , . 25 



. 1 . 



.25, 



.25. 



9772 
9773 
9774 
,1. 

-1 

9775 

9776 

9777 

6 

9778 

-6, .; 

9779 
9780 
9781 
9782 
9790 

p .0: 

9791 



DATP 
DATA 
ORTA 
1,-1, . 



1, -2 , . 1. -4, .1, -6 
3,-2, .3,-6, .5, -4 
5,-11. .5, -4, .25,1, .85 
, -2, . 1, -4. .25, -1, .85, 



DATA . 1, -2, . 1,-4, .1, -6 

DATA .3, -2, .3,-6, 1, -4 

DATA . 1, -4, .1,-4, .1, -4. .2, - 

DATA .5,-7, .3,-9, .a, -11, .5, 

, -4 

DATA .5, -3,. 5, -4 

DRTR 1,-4, .1,-4. .1,-4, .1,-6 

DRTR .5. -7, .2, -9, .a, -11 

ORTA .5,-1, .1,1, .3,3,1,1 

FOR i«ll TO -1 STEP -1; BEE 



9792 PRINT 

rtr d«j 
rdus dans 
mats fatie 
i *«ux son 
poisson 



en 



'-■ i 



se attire 

9793 PRINT " 
niettrons de 



trim 
ngo ts 

nir 
is at 
ntees 
rnivo 

une 



on : james Bon 
ssion recup 
d 'or jadi & p 
es caraibes, 

tention car I 
par un enorn 

re *ui ne vol 

bonne bouchee 
dent . '■ 

oses vous per 

■PPtr 



tr* 



jit. 



re designee 
n du nonit 
tfi prtitn 

9794 PRINT 
YEZ SUR UNE 
RflU 255,0 
,0: ORAU 0, 

9795 PRINT 

que vous av 
i ngo t , vous 
us U l«r p 
a Plate'oroi 
i sert de 
ur cette pc 

9796 PRINT 
OUi 



«a Fi 



diiposez d 
cs de nour rltu 

r*t K 'a tten tio 
ii'ii oubiic v o 



nom 
i<iue . 



2i 



JAMES! ! " 

9797 PRINT 
YEZ SUR UNE 
RAU 255,0. 

,0. DRRU 

9798 PRINT 
er a -3 a ■.■■:!-. 



AT 21,0." RPPU 

TOUCME" : PLOT 0,0 D 

DRflU 0,175: DRAU -855 
175; : PAUSE 0; CLS 

T 1,0, " CKjque fC'ii 

z recuptrt un L 

devez te deposer so 

' u«r a gauche de i 

pe tro l iert qu 

camou f Lage po 

i I leusem ission ." 

sa rogaie majeste - 
souhaite de reussir 
tout I amp i re br i tan 

Good Luck 



RT 21,0, '■ APPU 

TOUCHE" . PLOT 0,0; D 
DRAU 0,175 DRAU -855 
-175: : PAUSE 0. CLS 

pour a 1 1 



6 



a d.-oi ».e 



pour des 

pour »on 

pour ai L 

pour iac 
de nourr 



BONNE-CMANCE", AT 15.5, FLASH 1," 
APPU\'EZ SUR UNE TOUCHE": PAUSE 

9799 CLS RETURN 

9800 CLS . INK 7; PAPER 0: CLS 
PLOT 0,175: DRAU 0,-175: DRAU 2 

55,0 DRflU 0,175; DRAU -855,0 

9801 FOR P=0 TO 7 FOR 6=7 TO 
STEP -1 PRINT AT 10,13, PAPER p 
, INK e, "♦FIN*", AT 80,1, INK e, 
paper p, "uou (.ez-vous rejouerto-n 
»?"; DEEP .01,e+P 

9803 IF INKEY*="o" THEN RUN 
9604 IF INKEY*="n" THEN STOP 
9805 NEXT e: NEXT p: GO TO 9801 
9900 CL5 : INK 7: PRINT AT 10,0, 
' BRflUO' I 

UOus avez fagnez la partie" 
FOR 1=0 TO 800; NEXT t; GO TO 
9800 

9950 IF pi.nl AND P8»n2 THEN GO 
TO 9370 

9951 RETURN 

9999 5AUE " Jame s -Bond " LINE 1 • 



HEBDOGICIEL 27, rue du Gal-FOY 750X)8 PARIS 

VOUS POUVEZ VOUS ABONNER AU TARIF PREFERENTIEL DE 420 FRANCS POUR 52 NUMEROS AU LIEU DE 
52 x 10 = 520 FRANCS. ABONNEMENT POUR 6 MOIS: 220 FRANCS. Pour letranger: + 80 F. pour 1 AN 

+ 40 F. pour 6 MOIS. 

NOM: MATERIEL UTILISE : 

PRENOM: CONSOLE: 

ADRESSE: PERIPHERIQUES : 

BUREAU CHSTRIBUTEUR: REGLEMENT JOINT : □ CHEQUE □ CCP 



C'est nouveau, $a vient de sortir 



BIDOUILLE GRENOUILLE 



Special Printemps 

C'est le printemps. dit le soleil. 
C'est le printemps, gazouillent 
les hirondeiles qui reviennent a 
tire-d'aile. C'est le printemps. 
chante a tue-tete le gardien du 
square sur lequel donne les fe- 
netres du bureau dans lequel je 
suis en ce moment. Un rayon de 
lumiere tiede vient caresser ma 
jambe (j® suis en maillot de 
bain) et Je metire paresseuse- 
ment. C'est le printemps. Le 
rayon de soleil accroche le cris- 
tal du verre de whisky dans le- 
quel flotte un glagon deja a 
demi-fondu- Je cligne de I'oeil et 
je souris. C'est le printemps En 
tond sonore. la melopee siru- 
peuse de Echoes {Pink Floyd, 
merci) egrene ses accords alors 
que dehors, une jeune fille en 
robe blanche semble esquisser 
un pas de danse dans le square 
inonde de soleil. C'est le prin- 
temps. 

C'est le moment des bilans. L'hi- 
ver a ete benefique 6 combien. 
puisque nonobstant le troid 
toutes les grenouilles. delaissant 
leur hibernation rituelle. se sont 
decarcoassees pour trouver les 
solutions a de nombreux jeux. 
Alors que I'hiver etendait son 
blanc linceul sur la campagne et 
que le froid mordait les jambes 
des lilies, j'avais demande la so- 
lution de Zim sala bim pour 
Commodore 64. Aujourd'hui. 
alors que la chaleur ecrasante 
ouvre les enveloppes en tondant 
la colle (J e suis flemmard), Je 
suis enfin en mesure de dieter 
cette solution a ma charmante 
secretaire, qui est vetue de bas 
noirs. dun superbe collier et 
dune boucle d'oreille represen- 
tant une demi-orange (elle a 
perdu I'autre). 

Vous etes devant le palais : go 
forward, right, examine well, get 
rope, right, get tlint, go back. 
Vous etes devant les murailles : 
throw rope, climb rope. Vous 
vous relrouvez a I'interieur de 
I'encemte. Avancez jusqu'a la 
port© et tentez : go back, jusqu'a 
ce que 1'ordinateur vous lac- 
corde. Une fois a i'interieur du 
palais : left, open door, left, 
open door, look, left, open door, 
get uniform, wear uniform, right, 
right, right, open door. Passez 



devant le garde, puis open door, 
get scimittar. examine scimittar, 
left, left, go back. Au deuxieme 
etage, apres avoir pris I'argent : 
left, open door, left, open door, 
right, get jacket, examine jacket. 
get key. drop uniform, wear ja- 
cket, get uniform, left, open 
door Et, comble de joie, vous 
vous retrouvez dans le harem 
Examine table, gel diamonds, 
get sultana (juste comme ca), 
right, right, right, right, open 
door, examine vase, get rubies, 
right, unlock door, open door, 
right, examine fireplace, go pas- 
sage. La, ires vite, faites go 
back avant que les bandits n'ar- 
rivent. Vous etes dans le de- 
sert... go back, et paf, vous etes 
devant les murailles. Allez de- 



Jean. 1080 Bruxelles, belgique) 
nous annonce la fondation dun 
club d'utilisateurs de Commo- 
dore compose de 1 1 gareons et 
de zero Mies. II appelle done 
toutes les filles branchees CBM 
a adherer a son club, il va 
meme jusqu'a offrir un logiciel 
en echange. Attention, que les 
filles, parce qu 'il y a deja 11 gar- 
eons, ca suffit. 

Malgre la somnolence qui 
commence a m'envahir. je me 
permets de renlrer dans une 
rage folle (tout est relatif, en tait 
mon petit doigt de pied est par- 
couru dun leger frisson). Oil est 
la solution complete de Masque- 
rade ? Que j'ai demandee voici 
deja deux ou trois semaines ? 
Vous dormez, ou quoi ? Pen- 
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vant le clochard : examine beg- 
gard, give money. Prenez la cle 
qu'il vous tend et retournez sans 
tergiverser a la corde. Climb 
rope, right, go back, go back, 
right, open door, right, unlock 
door, open door, unlock chest. 
open chest, get gold, go pas- 
sage, go back (vite. a cause des 
bandits), right jusqu'au bout, go 
forward, go cave, left jusqu'aux 
villageois, drop gold, say thank 
you to the grenouilles and mos- 
tly to JPZ. qui aimerait bien 
avoir un petit deplombeur pour 
Commodore. 

Catherine (ma secretaire) est en 
train d'ouvrir mon abondant et 
volumineux courrier et elle se 
marre II y a de quoi : un jeune 
beige (Abdelhamid Khalifa. 34 
rue du presbytere. Molenbeek Si 



dant que vous y etes. envoyez- 
moi aussi Return to Pirate's Isle 
sur Texas et tout ce que vous 
avez sur Eureka. Apres, on 
vena. 

A propos d'Eureka, je peux 
d'ores et deja vous communi- 
quer quelques astuces qui me 
viennent de Marc Couvreux. Vu 
la lettre qu'il m'envoie, il doil 
avoir une secretaire super. Pa- 
reil que la mienne, mais sans 
les boucles d'oreilles. 
Bref. si vous etes coinces a 
I age prehistonque dans la jun- 
gle, faites NW deux lois de 
suite. Et un true qui ne vaut que 
sur Spectrum : pour redemarrer 
un jeu au debut, faites Caps 
Shift + Symbol shift, un drapeau 
hongrois apparait durant une 
vingtaine de secondes et tout 



recommence. C'est aussi une 
solution pour acceder au dernier 
jeu en evitant les questions. 
Jean-Marie Dubouloz a moins 
de chance : il est mane Ceci 
dit, sa femme est certainement 
tres bien. En fait, il faudrait la 
comparer a ma secretaire pour 
pouvoir juger. A propos. je 
trouve qu'il se passe dans le 
square en bas des choses 
etranges. J'aimerais notamment 
savoir ou est passee la robe 
blanche de la jeune fille et pour- 
quoi le jeune homme qui la re- 
joint n'est ve'tu que de ses 
chaussettes. Bref. revenons a 
nos moutons. 

Pour pouvoir modifier un pro- 
gramme protege sur T07, pro- 
ceder comme suit. Charger le 
programme normalement. puis 
retirer la cassette. Faire EXEC 
1216 sur TO7-70ou EXEC 1214 
sur T07. puis Reset et LIST. 
Lorsque tout le programme est 
liste, faire SAVE "nom prog'.A 
sans rien mettre dans le ma- 
gneto. La, attendre que ca se 
passe, en buvant un whisky, par 
exemple. mais vous n'etes pas 
obliges. Ouand I'ecran affiche 
OK, toutes les modifications 
sont possibles. 

En prime, le moyen de trouver 
le Diamant Bleu dans I'Aigle dor 
sur M05. often par Jerome 
Amilhastre ; gauche, gauche, 
droite. droite. gauche, gauche, 
droite. revenir gauche, allumer 
torche. droite. gauche, droite. 
droite. droite, droite. droite. gau- 
che, en haul, gauche, gauche, 
en haul, prendre torche. en 
haut, gauche, droite. en haut, 
gauche, droite. en haut, gauche, 
en haut, droite (en courant. 
please), encore, en haut. pren- 
dre le diamant bleu. 
Voila. 

Pas de rubrique Minitel cette se- 
maine, mon micro est HS (j'au- 
rais peut-etre pas du essayer de 
telecommander mon grille-pain 
avec). La semaine prochaine, 
vous en aurez deux fois plus. 
car j'ai mis mon armee de se- 
cretaires a la recherche de 
codes. 

En attendant, je vais aller faire 
un tour au square. Quatre 
heures. c'est la sortie des 
ecoles. Le temps denfiler mon 
impermeable. 



LE RETOUR 
D'INDIANA JONES 



Mmdscape inc reprend le flam- 
beau delaisse par Datamost 
editeur du ceiebre |eu (pour 
Apple et Commodore) Aztec 
dans lequel vous deviez partir 
a la recherche de certaine 
idole dans certaine pyramide 
azteque. Au jour d'aujourd'hui 
nous avons droit a I'adaptation 
integrate et sans faille (avec le 
titre original sil vous plait !) de 
Indiana Jones in the Lost 
Kingdom Pour ceux qui ne 
pratiquent que le javanais. sa- 
chez que le film sonit sur vos 
ecrans a la fin de lannee der- 
niere sous le tilre Indiana 
Jones et le Temple Maudit. 

Tout ce que je peux vous 
avouer apres quelques minu- 
tes d'utilisalion. c est que le jeu 
ressemble au film, pour le sce- 
nario, mais pour les effets spe- 
ciaux et la musique, c'est lar- 




gement nueux au cinema 
Sinoii la recherche de I'Objel 
Sacre semble plus que difficile 
(j'hesite en fait enire mfaisable 
et impossible) mais les cham- 
pions du clavier que vous etes 
ne se laisseront pas depasser 
par si peu. A vous dechapper 
a la malediction el de vaincre 
la ou Harrison Ford a vaincu 
{mais ne revez pas vous ne 
gagnerez que le |eu, pas au- 
tant de dollars que lui !). 



SCR ABBLITE AIGUE 



Apres le Commodore 64. c'est 

le Spectrum qui remplit sa me- 
moire des quelques vingt huit 
mille mots du dictionnaire du 
Scrabble de Leisure Genius 
Pour 245 francs vous dispose- 
rez ainsi dun excellenl parle- 
naire pour apprendre les ton- 
dements de ce classique des 
jeux de lettres Arnveront pro- 
chainement une version pour 
Apple (en avril) et pour Thom- 
son (mai) 




MARABOUT 
BOUT DE FICELLE 



Le Docleur G GR1GORIEFF- 
VIRGATCHIK {ce nest pas un 
gag. il s'appelle vraiment 
comme ca ! Meme que le pre- 
mier qui arrive a prononcei 
son nom sans se plantei 
gagne un rhinoceros en ecn 
vant a I HHHHebdo) est le di 
recteur des collections informa 
liques Marabout. Comme 
chacun le sail, le Marabout est 
une bestiole parfaitement ger- 
bante qui a deux caracleristi- 
ques pnncipales 1) Son as- 
pect physique est parfaitement 
repugnant 2) C'est un charo- 
gnard. c'est a dire que ses 
petits repas ne sont constitues 
que de cadavres en decompo- 
sition et. si possible, truffes de 
vers gluants 

Je ne metendrai pas sur las- 
peel des bouquins de la collec- 
tion Marabout, ils sont chez 
eux et font ce qu ils veulent 
Mais, la ou i ai mon mot a dire, 
c'est sur le bouquin en prepa- 
ration et la facon don! son ela- 
boration est abordee Xes 100 
meilleurs logiciels pour TO 
5 M05 est le bouquin en 
question. Quoi TO 5 ? J'ai dit 
TO 5 au lieu de TO 7 70 "> 
Merde. excusez-moi. |e me 
suis plante Pour (aire celte se- 
lection, les editions Mara He. 
non, stop ' Je me suis plante 
nen du tout le litre du bouquin 
mentionne bien TO 5 specia- 
lties les mecs. grands specia- 
lties ' Comment done vonl-ils 
'aire pour selectionner les 100 
meilleurs logiciels sur TO 7 70 
et MO 5 ? Comment ' 



Dabord. il laudra qu ils saper- 
coivent que le TO 5 nexiste 
pas, Ensuite, il faudra quils at- 
tendent la reponse au ques- 
tionnaire qu ils ont envoye aux 
editeurs de logiciels et dans le- 
quel ils leur demandent la liste 
de leurs "best-sellers". Enfin. si 
ils essaient les logiciels. ils de- 
vront s'apercevoir qu il n exisle 
pas 1 00 bons logiciels pour 
Thomson, loin sen laut ! 
On verra alors peut-etre appa- 
raitre dans la collection .Mara- 
bout des ouvrages dont les 
litres ressembleronl a "Pas 
de logiciel pour TO 5' ou "Les 
3 meilleurs logiciels pour 
T07 70 et M05 Pas vraiment 
rentables ' 




Mais ne revons pas. ii y a 
quand meme plus de chances 
pour qu aucun ouvrage ne 
sorte ou. ce qui est plus grave. 
qu il sorte vraiment avec 100 
litres qualifies de meilleurs 
Si cesl le oas 'e besliau 
n'aura pas vole son deuxieme 

qualificattl. 



HISTOIRE A REECRIRE 



SSI En voila un nom qu il est 
magique pour lous les lanati- 
ques de reconstitutions histon- 
ques sur micro-ordmaleur. 
SSI 7 Strategic Simulations 
Incorporated netend pas la 
gamme de ses produits. mats 
agrandit le pare des machines 
qui peuvent supporter ses 
idees Jusqu'a recemment spe- 
cialises sur Apple. SSI se 
lance aujourd'hui sur le mar- 
che Commodore. Atari et 
Spectrum. Les qualre litres 
quelle propose, les voici ' 
Tigers In The Snow vous en- 
traine dans la dernrere tenta- 
tive nazie pour stopper l avari- 
ces d'Eisenhower en 
Decembre 44 Von Rundsledt 
oaonera-l-il chez vous 7 



gie dans le catalogue de SSI. 
On test veritable de votre ca- 
pacite a resister a une invasion 
quelconque au niveau tactique. 
stateqique et reHexiQue p 





Battle For Normandy retrace 
le debarquement allie en Nor- 
mandie a partir du 6 Juin 44. A 
vous de detoncer le Mur de 
I'Atlantique en mesure el sans 
perdre pied 

Combat Leader reste le seul 
jeu melant I'arcade a la strate- 



Knights Ot The Desert vous 
emmene lom dans le Sahara 
et en Afnque du nord. a la 
poursuite de la guerre entre 
Anglais el Allemands en 41 

Principaux points communs de 
ces logiciels : une excellente ti- 
nition au niveau du scenario et 
une tactique de guerre assez 
foudroyante pour les neophy- 
tes Pour les habitues des war- 
games sur plateau, un gain 
d'interet evident grace a la 
gestion mformatisee des 
combats. Enfin une seule pro- 
tection a ete mise en commun 
pour tous ces logiciels. A vous 
de la trouver. vous pourrez 
alors tous les copier ! 



XENOPHOBIE INFORMATIQUE 



Je ne vais pas encore vous 
bassmer avec les operations 
10.000 micros dans les ecoles 
qui sont devenus 100.000 puis 
120.000 apres avoir failli etre 
200.000. 450.000 et pourquoi 
pas un ou deux millions. 
La grande operation en ques- 
tion apportera 121.582 ordina- 
leurs dans les ecoles dont 
13.773 ordinateurs de type 
professionnel et 107.809 fami- 
liaux, pas un de plus pas un 
de moins Le contribuable heu- 
reux de letre et passionne par 
loperation "mformatique pour 
tous" deboursera 1 . 1 63 mil- 
lions de francs pour I'achat du 
materiel et 722 millions de 
trancs lourds pour la formation 
des enseignants. Soil un total 
de 1890 millions de francs 
lourds. 189 milliards de centi- 
mes ' 




I or- 



La repartition des 107 8 
dinateurs familiaux 

68.638 Thomson M05 
21.171 Thomson T07 70 
9 000 Exelvision 

La reparttlion des 13.773 pro- 
fessionnels 

4.750 Bull 
4.750 Goupil 
1 000 Leanord 
i 000 Matra 



II ne reste done plus rien pour 
les etrangers en familiaux. Pas 
de Sinclair, pas d'Apple. pas 
de Commodore, rien. peau de 
balle et balai de crin ' 
II y a par contre 2.273 becanes 
a vendre en prolessionnel : 
IBM. HP. Apple. Olivetti. Loga- 
bax et les autres travailleurs 
immigres de I'informatique 
nont pas a se plaindre, il leur 
reste les mieftes du lestm a se 
partager et la possibilite 
d'acheter des badges Touche 
pas a mon pole'' a prix de 
gros SOS Racisme' attend 
leur appel 



MACINTOSH 7 KO 



Non, il ne s'agit pas dun nou- 
veau Mac mais bien de celui 
que vous connaissez ; le Mac 
soi-disant 128 Ko. Quand on 
charge le Mac Pascal, il reste 
un peu moins de 7 Ko pour 
programmer, le reve ' Si vous 
chargez un basic dans cette 
efficace machine, il ne vous 
restera plus que 32 Ko utiiisa- 
teur : mieux que Pascal mais 
un peu juste en regard du prix 
de la machine, non ? Tiens. 
pendant que j'y suis. savez- 
vous que I'Apple lie n'a que 35 
Ko utilisateur et que le He qui 
roule des mecaniques avec 
ses pseudos- 1 28 Ko n en a 



que 32 plus 63 Ko qui sont 
perdus dans les limbes de la 
carte chat mauve et qui ne 
sont utilisables qu'avec ProDos 
et pas en ligne. Manquent pas 
d'air quand ils annoncent leur 
capacite memoire ! 




C'est nouveau, pa vient de sortir 



ADAM : EVE PARLE 



Dans notre grande serie "les 
delateurs delatent", voici les 
mesaventures dun monsieur 
•habitant a Limogne avec son 
Adam Coleco. 

A la suite de publicites parues 
dans divers journaux annon- 
Qanl lecteur de disquette. 
compalibilite IBM PC, modem, 
logo, tableur et autres, ce 
monsieur achete un ordinateur 
Adam au prix de 7200 francs. 
Jusque -la. rien de particulier. 
En decembre, il essaie d'obte- 
nir des rubans pour son impri- 
mante (I'Adam n'est pas vendu 
sans elle) et des cassettes (qui 
sont des cassettes digitales. 
non standard) : ni les uns ni 
les autres ne sont disponibles. 
II trouve finalement des casset- 
tes a la Fnac, mats a 52 Irancs 
au lieu des 15 francs annon- 
ces. II s'agit de cassettes vier- 
ges ! 

II telephone au siege de CBS 
a Paris : pas de rubans, les 
Etats-Unis ne livrent plus. 
Puis, le jeu livre avec I'appareil 
decide de ne plus marcher. 
L'une des manettes se bloque. 
Toujours pas de rubans. Nous 
sommes en janvier ; le PDG 
d'Adam annonce qu'il n'est pas 
question d'arreter la production 







d'Adam. La deuxieme manette 
rend Tame. II arrive a denicher 
2 rubans a Calais (a 1000 
bornes de chez lui). Fevrier, 
Adam annonce I'arret de la 
production. 

A partir de la, plus rien ne 
marche. plus n'est disponible. 
les extensions prevues s'envo- 
lent en fumee. 

Se resoudre a programmer ? II 
n'y a pas de documentation 
sur ce micro, pas de program- 
mes dans la presse informati- 
que, pas de livres dessus. 
Conclusion du monsieur. Adam 
c'est pas le paradis. . 
A ce point-la. c'est meme plus 
le purgatoire, c'est I'enfer ! 



TIENS, ENCORE DES CLASSIQUES 



Et cesl encore le Spectrum 
qui va bourrer sa memoire de 
bits pas comme les autres ! 
Les logiciels d'Electronic Arts 
vonl commencer a etre diffu- 
ses {au compte-goutte quand 
meme) dans le courant de ce 
mois. Les premiers litres 
prevus sont ; Archon I . Hard 
Hat Mack et One on One 
Pour le mois de mai, una sor- 
tie commune Commodore 64 
oi Spectrum : Karateka A 



propos de Karateka. les impor- 
tateurs ont fait tout faux : ii cir- 
cule sur Apple el Commodore 
(en pirate bien sur) depuis no- 
vembre-decembre. Dur I 




IMAGINE, C'EST CAPRI 



Imagine IZZOOM, PEDRO, 
STONKERS, ALCHEMIST..,) 
cesl fini i Le celebre et genial 
fondaleur de la non moins ce- 
lebre societe a rendu ses 
billes, mais elles ne sont pas 
perdues pour tout ie monde ' 
Ocean a rachete le nom et 
commence la diffusion de logi- 
ciels sous celle marque. Je 
reve ou c'est de la diversifica- 
tion a tendance monopoles- 
que ? Bref. mainlenant lorsque 



vous verrez Imagine, vous 
pourrez vous croire a la mer 
en toule Iranquillite. 




TOUJOURS PLUS NUL ! 



Qui peut etre plus nul qu'lnfo- 
grames sinon Infogrames lui- 
meme ? Lorsque nos amis 
lyonnais s'attaquent au marche 
MSX, aux concurrents de s'es- 
claffer ' 




pas et pourtant ce soft est ex- 
clusivement reserve a ces ma- 
chines ! 

Flight Path 737 vient de lau- 
tre c6Ie de la Manche La tra- 
duction d'lnfogrames s'est limi- 
tee au manuel. le soft est tel 

qua la sortie des ateliers 
d'Anirog . Encore un simula- 
tes de vol, sans interet, pau- 
vre graphiquement (tableau de 
bord a chier) et impraticable 
sans quelques heures d'entraf- 
nemenl. A ne mettre qu'entre 
les mains des habitues qui 
n'ont pas peur de s'ennuyer 



Hercule est nul, et je fais des 
rimes ! Je vous presente en 
exclusivite un nouveau batard : 
Pac-Man plus labyrinlhe. 
Caca ! Graphismes nuls. sono- 
risations inexistantes ; voila de 
quoi fuir en vitesse malgre le 
prix relativement allechant 
Mais 150 francs pour une belle 
boite de plastique, vaut mieux 
laisser tomber. Au fait, vous 
connaissez un MSX qui fasse 
64 Ko de Ram utilisateur ? Moi 




SEIZE BITS ? WAOUH... 



Et c'est par les oeuvres de PSI 
ediTESTS que nous allons 
partir a la conquete de ceux-ci. 
Enfin nous devnons, car le 
bouquin de Frank BROWN, 
Programmation en Assem- 
bler du 66000 et des cir- 
cuits d'interface , se base sur 
l'une des configurations exis- 
tanles autour de ce micro-pro- 
cesseur : le systeme mono- 
carte PROF KIT-2 En pratique 
si vous voulez trouver une litte- 
ralure generate sur ce besliau 
de course, adressez-vous a 
une autre epicerie. Par contre 
et en revanche si vous avez 
I'immense et incommensurable 
chance de iravailler sur le sys- 
teme ci-dessus decrit, vous 
avez frappe a la bonne porte : 
le livre vous emmenera a ta 
decouverte de ce processeur 
par une progression pedagogi- 
que fort bien concue (a la 
condition expresse que vous 



ayez deja programme un 
micro-processeur dans voire 
vie). En fait vous disposez de 
deux solutions : vous achetez 
le book et le systeme mono- 
carte ou vous partez un week- 
end faire du ski avec I'argent 
economise. 




T0UCHE PAS A M0N TRAMIEL 



Jack Tramiel. qui est toujours 
patron d'Atart (je dis ca pour 
ceux qui n'ont pas suivi la 
saga), a intenle un proces a 
Commodore a cause de 
Daphne. Encore une hisioire 
de nana ? Pas du tout. 
Daphne est un processeur ela- 
bore pour I' Atari 130 ST par la 
firme Amiga. A lepoque. cette 
firme etait independante. mais 
elle fut rachetee par Commo- 
dore lorsque Tramiel quilta la 
presidence de cette derniere 
societe. Pour ceux qui n'ont 
toujours pas suivi la saga, je 
rappelle que Tramiel a quitte 
Commodore parce que ie 
conseil d'admmistration refusait 
de prendre le fils de Tramiel 
comme vice-president. Bon. 
quand il est parti. Commodore 
s'est empresse de racheter 
Amiga pour mettre des batons 
dans les roues a Tramiel. qui 
entretemps avait rachete Atari. 
Done, Commodore beneficie 
de recherches qui avaient ete 
poursuivies pour la machine de 



Tramiel. j espere pour lui en 
nom propre. parce que sinon i! 
aura du mal, pour le proces. 




Bref. Commodore profile de 
son association avec Amiga 
pour lancer une machine 
comportant 128 Ko de Rom, 
256 Ko de Ram. un moniteur 
couleur et un drive de 1 Mo 
pour le meme prix que I'Atari 
520 ST. Qui, je vous le rap- 
pelle, est fabrique par Atari 
dont le patron est Jack Tra- 
miel. Qui est lex-president de 
Commodore. Qui sort une nou- 
velle machine. Voila. 



LESAMERICAINSETLA 
MYTHOLOGIE 



Ces americains ne manquent 
pas d humour . apres avoir 
conquis le Monde economique- 
menl. ils ne revent plus que 
dune chose, se forger une my- 
thologie Alors pourquoi pas en 
puisant dans celles des 
autres. . . SierrA venture 

commercialise actuellemenl un 
jeu denomme Ulysses and 
the Golden Fleece De.a. ca 
coince mechammenl au niveau 
des sources . Homere a du se 
retourner dans sa lombe a voir 
pareille aberration se diffuser 
sur Apple. Atari et Commo 
dore Admettons que les Argo- 
naules n existent pas e 
qu'Ulysse soil elfectivemer 
parti a la recherche de la Toi 
son d'Or. Nous chargeons te 
jeu et , 6 surprise, apprenons 
que le Roi (lequel. on se le de- 
mande bien) a demande a 
Ulysse (ah bon. il esl pas roi 
lui) d'aller recuperer cette fa- 
meuse Toison. Et la loison. 
Ulysse n'a meme pas le droit 
de la garder : il doit I'offrir au 
roi Une honte I M'enfin. nen 
de notre belle histoire n est 




perdu oonitne le bateau cesl 
tout juste bon pour les pauvres 
(Jason partit a bord de I'Argos 
avec les argonautes. dou le 
nom) Ulysse prendra I'avion, 
un Pegase de course. La, en- 
core j'en reste comme deux 
ronds de flan et Homere aussi. 

L'auteur de celte bnllante ree- 
criture se nomme sans doute 
Homere d'alors. 



TU NE TUERAS POINT 



Isaac Asimov, run des plus re- 
putes des auteurs de Science 
Fiction, a pondu voici une qua- 
rantaine d'annees un ouvrage 
sur les robots. A travers toute 
son oeuvre, les Trois Lois de 
la Robotique regnent en mai- 
tre absolu de la destinee de 
ces infortunees boftes de 
conserves a cerveau. Dans 
Sous Les Feux Du Soleil , il 
decrit une soci6te ou le contact 
physique ou la simple vue dun 
etre rend malade. Elijah 
BALEY arrive sur cette planete 
pour resoudre une histoire de 
meurtre. Cette aventure. vous 
pouvez desormais la vivre 
grace au logiciei d' Epyx : 
Robots Of Dawn . sur Apple 
et Commodore. Le scenario 




suit scruouleusement les evo- 
lutions du heros du livre, mais 
rien ne vous em pec he de 
mener votre enquete de ma- 
niere plus originale. Un seul 
obstacle au plaisir de se croire 
ailleurs que sur la Terre : le 
soft est entietement en texte, 
Dommage ! 



UN ORIC MSX ? 



ASN. celebre importateur 
d'Oric, avait un patron : Denis 
Taieb. Celui-ci est parti vers 
d'autres horizons et a ete rem- 
place par son frere Claude a la 
tete de la societe. Vous avez 
bien sur suivi la saga de ces 
freres pas ennemis mais pres- 
que, saga qui n'est pas pres 
de se terminer, loin sen faut. 



Vous voulez quelques details 
sur I'engin ? Vous y tenez ? 
Ce n'est qu'un MSX de plus, 
vous savez. Oui ? Bon, allons- 

y 

II porte un joli nom evocaleur 
et poetique comme seul les 
asiatiques savent en Irouver : 
FC 200 MSX. 
Une rom classique de 32 Ko 



voisme avec une non moins 
classique ram video de 16 Ko. 
La ram de 64 Ko est dans la 
fourchette haute des MSX 
ainsi que le nombre de ports 
disponibles en standard : pa- 
rallel Centronics, connecteur 
de rom, bus d'exlension et 
deux prises joystick. Le reste 
ne presente aucune originalite 
par rapport a la norme MSX. 
Le prix est raisonnable ; 2590 
francs en perilel. 
Voila, pas Ires excilant, n'est- 
ce pas ? C'est un peu triste de 
finir avec un MSX de plus 
quand on a fait un malheur 
avec une machine pleine de 
personnalile comme I'Oric. 
Sniff.. 




APPLE II X, 
suite et fin 

Steve Wozniack, co-fondateur 
d'Apple et demissionnaire de 
celte societe qu'il estime trop 
bureaucratisee (qui a dit fonc- 
tionnaires ?) a formellement 
dementi le lancementde r Apple 
llx : pas de Motorola pour la 
grand-mere baba ! Dommage. 
elle etait toute emoustillee a la 
pensee de pouvoir manipuler 
16 bits a la fois I 



Auiourdhui un nouvel epi- 
sode : Claude Taieb n'a plus 
d'Oric a vendre puisque I'usine 
anglaise a depose son bilan 
Les repreneurs eventuels de la 
marque etanl son frere Denis 
dune part et, d'autre part. Eu- 
reka, le paralleliste qui a im- 
porte le plus de machines sur 
son dos, il y a de fortes chan- 
ces pour qu'ASN n'ait effecti- 
vement plus jamais d'Oric a 
vendre. Claude Taieb est done 
parti trainer ses guetres en 
Asie el a degote du cote de 
Seoul, en Coree. un petit MSX 
de dernere les fagots C'est un 
Goldstar qui a deja eu un im- 
portateur officiel en France : le 
defunt Prism. Comme quoi. 
rien ne se perd. 



ET POUR QUI 

ESTCE 

ZAXX0N 

QUISHTLE 

SUR 
V0S TETES ? 




est pour les MSX ! En plus 
c'est le plus beau de tous 
(avec la version Commodore) 
et il n'est meme pas vraiment 
tres cher : 190 francs (chez les 
importateurs patallelist.es). 



HIPPO 
JOYST 



nouveau, 
< tlr automatique 



C'est toujours japonais. c'est toujours costaud, mais. en 
plus, 98 a un autofire. C'est a dire que, si vous laissez un de 
vos dolgts appuye sur un des boulons, le tir sera a repeti- 
tion, c'est pas beau ca ? Pour le reste rien de change : trofs 
boulons de tir, une bonne prise en main et quatre ventouses 
pour le coller detinitivement sur la table de la salle a manger 
(super-pratique pour les repas !) Prise stantard pour Atari, 
Commodore 64, MSX, Vic 20. Compatible avec les interfaces 
Orlc et Spectrum. Pour Apple, Thomson, Texas, Machbrb et 
Trucmuche, Tlntln : ca ne marche pas ou alors il faudra bi- 
doulller. 

Ah, au fait, c'est plus cher que I'anclen, 120 bailee ! De toute 
(aeon, de I'anclen il n'y en a plus alors... 
C'est bon, c'est pas trop cher ? Envoyez vos sous apres 
avoir rempll le bon de commands ci-Joint. Le mlnlstre du 
commerce exterieur du Japon vous remercfe blen bas. 





>*> 



■ft-tr-tr-Ct-tr-btr-b-trit -to -to it ir * 
Bon de commando a decouper et a renvoyer a 
SHIFT EDITIONS, 27 rue du General Foy 75008 
PARIS. 

Atom 

Pr6nom 

Adresse 



DATE: 



PU-120F-X-- _F 

trait d'mnvol - +16 F 

cheque joint: TOTAL - _.F 



HEBDOGICIEL SOFTWARE 

Le logiciel a sa juste valeur 

Les nouvelles boites jaunes sont arrivees ! Six logiciels francais de qualite par cassette et un prix raisonnable : des 
produits signes SHIFT EDITIONS ! 



'grssx&z 



L AVENTURE SUR ORIC 



Un|eu da venture cava Six jeux d'aventure, bonjour les nutls blanches! Vous al- 
lezdeverwlouralourexploraleur, espion.egypiologue, Cosmo naute, super-he 
rosetvictimeducelebredocleurParanaud Sivousarrivezauboutdecessixcas- 
se-lete sans problemes de same et sans troubles mentaux. vous deviendrez 
sans contesleun des grands maitres mo ndiauxdujeud'aventurelUnecassette 
pleme a craquer pour 120 francs. 

votre Oric utilise lelangage machine pour retlftchiret vous n'avezmalheureuse- 
ment que votre cerveau humain pour le battre au Morpion I Le "Laby 5' qui suit 
nest pas plus facile : cinq etages, des trappes partout et sesascenseurs pas tres 
dables 1 Dans "Oil leak", vous devez reparer ur>e voitureau beau milieu de gran- 
desflaquesdhuile Les goutfres. les ravins et les precipices de"Pont-levis"vont 
vous rendre tou ! Le "Parsec" tonce 6 loute Vitesse et la "Guorre nucleaire" est 
tout simplement le premier grand Wargame pour One 120 francs la cassette 



"Dork crystal* est sans nul doute un 
des plus beaux et rapides jeux 
ecrits pour Tl 99 : votre heros doit re- 
cuperer des fragments de costal dans 
le labyrinthe qui est le lieu a la mode 
pour tous les monstres branches de la 
galaxie • Les autres jeux sont tout aus- 
siefficaces unsuperbesauteursursa 
pyramide. un duel pour deux joueurs 
en armure, un casino avec 3 jeux de 
cartes, une central e nucleaire et "Mis- 
sion penlleuse" qui vous transporters 
dans une jungle hostile en deux somp- 
tueux tableaux 120 francs les 6 jeux 
en basic etendu. 



: 



•»*»r- 



*TE1« 



BASIC ETENDU 



"^""S'""^ 



k SPECTRUM N-1 





0«C N-5 



Des jeux d arcade a gogo cbangezle 
cours de Ihistoire a Peart Ha rbouf. gui- 
de; AlbeirU'l Kong dans leur pyramide 
favonle, jouez a un jeu de balle en- 
tierement nouveau. cortstruisez 
denormes murs avec votre grue de 
chantier et regalez-vous avec de la te- 
quila : plus vous en buvez. plus vous 
desamorcez facilement les bombes 
de "Caramba" 1 Six super-program- 
mes pour 1 20 francs. 

Deux jeux d arcade ou vous serez 
un courageux pompier, ou pilots 
d'unemoto de course lonctionnantau 
langage machine. Viennent ensuite la 
reflexion avec "Puzzle' et la stategie 
avec "Mineur" ou vouspourrez organi- 
ser des competitions jusqu'a. 5 
joueurs. La venture entin avec "L inca 
dor. un tabuleux jeu grapbique en 3 
dimensions 6 super -programmes 
pour 120 francs 



Des jeux. de leleclncite et du plaisir. 
voila de quoi fairefretiller les electrons 
dans voire M05 et quand en plus ces 
jeux sont multiples et douze vous envi* 
sagerez quelques nuits blanches 
d'Othelio, de Poker, de Memo 7. Des 
que I'immobilite vous paraitra insup- 
portable, parte* pour lespace pro- 
tond (Worp) ou retrouvez vos amis (ti - 
chief cJ adresse) Vous verrez, vous 
n'en croirez pas plus vos yeux que vo- 
tre M05 n'en croira ses jeux < 

. BON DE COMMANDE A REN- 

* VOVER A SHIFT EDITIONS, 27 

* rue du Gal Foy 75008 PARIS. 



















*f Code coital 










j. UMI* 
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* ORICN°4 
- ORICN°5 

SPECTRUM N° 
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120F 
120F 
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120F 






* TEXAS N" 4 










,. ZX81N°1 
* M05NM 
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120F 
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150 F. 
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Mcatfor 


*am 






■mm 




» -REGLEMENT JOINT 


OOF 


ZX81 


NM 


^ DATE ; 

* 







DEUX SUPER-CONCOURS PERMANENTS 

20 000 francs de prix au MEILLEUR LOGICIEL du MOIS et un VOYAGE pour 2 
personnes en CALIFORNIE au meilleur logiciel du TRIMESTRE. 



Un concours de plusl 
Rlen de blen original dans 
cette formule, pourtant nous 
essayons de fafre queique 
chose de different: nous orga- 
nlsons un concours perma- 
nent tous les mols et tous les 
trimestres! Et avec des prix 
dlgnes des programmes que 
vous allez nous envoyer! 
De plus, ce seront les lecteurs 
eux-memes qui voteront pour 
leurs programmes preferes 
sur la grille recapitulative 
mensuelle. 

Pas de Jury, pas de decision 
arbitrage, HEBDOGICIEL n'ln- 
tervenant que dans le cholx 
des programmes qui devront 
etre ORIGINAUX et FRAN- 
CAIS. Si votre programme 
n'est pas tout a fait au point, 
un de nos special Istes vous 
dira comment I'amellorer pour 
pouvolr nous le proposer a 
nouveau. 

Pour participer, II vous sutfit 
de nous envoyer vos pro- 
grammes accompagnes du 
bon de participation ainsl que 
toutes les explications neces- 



saires a lutllisation de ce pro- 
gramme. 
Bonne chance! 
Reglement: 

ART.1: HEBDOGICIEL organise 
de facon mensuelle et trimes- 
tnelle un concours dote de prix 
recompensant le meilleur logiciel 
du mais et du trimestre. 
ART.2: Ce concours est ouvert 
a tout auleu' de logiciel queique 
soit le materiel sur lequel il est 
realise. L'envoi dun logiciel en 
k; ou disquette accompagne 
dun bon de participation de- 
coupe dans HEBDOGICIEL 
constitue I'acte de candidature. 
ART.3: La redaction d'HEBDO- 
GICIEL se reserve le droit de 
selection ner sur la base de la 
qualite et de loriginalite les logi- 
ciels qui sont publies dans le 
journal. 

ART.4: Ce sont les lecteurs qui, 
par leur vote, determinent les 
meilleurs logiciels mensuels et 
tnmeslriels. 

ART.5: Le prix alloue pour le 
concours mensuel sera remis au 
plus tard un mois apres la clo- 
ture du concours mensuel. 



ART.6: Le prix alloue pour le 
concours trimestriel sera remis 
au plus tard un mois apres la 
cloture du concours trimestriel. 
ART.7: Le present rdglement a 
ete depose chez Maitre Jauna- 
tre l rue des Halles 75001 

ART.8: HEBDOGICIEL se re- 
serve le droit d'interrompre a 
tout moment le present 
concours en avisant les lecteurs 
un mois avant. 

ART.9: La participation au 
concours entraine lacceptation 
par les concurrents du present 
reglement. 

HEBDOGICIEL: 27 rue du Gal 
Foy 75008 PARIS. 

Sera declare gagnant le pro- 
gramme qui aura obtenu le 
plus tort pourcentage de vote 
par rapport a la total Ite des 
programmes recus pour un 
me me ordinateur. 
Ainsl, pas de favorltisme pour 
les ordlnateurs plus puissants 
ou tres diffuses. 



BON DE PARTICIPATION 



a\& ?m 



Nom 

Prenom 

Age Profession 

Adresse 

N telephone 

Nom du programme 

Nom du materiel utilise 

declare etre lauteur de ce programme qui nest m une imitation ni une 
copie dun programme existant Ce piogramme reste ma propnete et 
1 autonse HEBDOGICIEL a le publier La remuneration pour les pages 
pubhees sera de 1000 trancs par page (un programme n occupant pas 
une page entiere sera remunere au prorata de la surface occupee) 

Signature obligatoire 

(signature des parents pour les mmeurs) 

Le programme doit etre expedie sur support magnetique (cassette ou 

disquette) accompagne d un descnptif detaille du materiel utilise, 
d'une notice d ultlisation du programme Les supports des program- 
mes publies sont conserves, n oubhez done pas den faire une copie 




SIX DEULIGNES ET PUIS S'EN VONT 

Yahouh ! Vous etes de plus en plus flemmards Christophe PASQUIER bidouille joyeusement la 

Vous n'avez meme plus la torce de coller un tim- lete de son curseur. Regardez-le comme il est 

bre sur une enveloppe et de placer a I'interieur de beau le petit nouveau. 
cette demiere un faux semblant de programme, un 

deuligne. La. les mecs, vous deconnez. Comment ^ Listing COMMODORE 64 
croyez-vous que vous arriverez a empocher un ou 

deux logiciels, hein ? Bref ne vous etonnez pas si P0KE53272.28 POKE36334.0: POKE 1 .31 FORI 

vous ne figurez pas dans les meilleurs de la se- -8T02e47 POKE 12288+ 1 .PEEK (53246* I ) NEXT 

maine. 1 FORT-1280TO1288POXE12288+T.PEEKC33248 

♦42*8+R ) R-fl* 1 : NEXT i POKE I . 35 ■ P0KE56334 , 1 

Oidier BONNET ne travaille pas du chapeau puis- a. 

qu'il a tout mis dans son deuligne. meme le hT 

commentaire sur lutil.te de son programme. Fr6d6fjc FAHGE0T re mporte allegrement le gros 

w i Mm adpi p n - 1 lot avec sa fonction PAINT X.Y.A qui place aux 

▼ LlsIing ArKLt n n cooroonnees X.Y le caractere de code ASCII A. 

io for i - 312 TO ?A7tm - peek Bravo llnspiration ! 

(1)1 POKE 1 ♦ 234,ANi NEXT I __ „..,«..„«-, 

^ Usting CANON X07 

20 RE » ?f MCTIUAT10N DE C0NTTO 1 F0 B X.71O^TO7129:READA. :P OKEX,U W .<-M4-» 

L "ESET A#) ;HEXT:DATACD,CC,FF,1C,7B,32,B9,0,CF 

A^ 2 DATA2C,CD,CC,FF, IC, 7B, 32, B8, O, CF . 2C , CD 

>^ ,CC,FF,7B,£F,C9 

Jean-Francois AUBRY ne s'adresse quaux seules K^«T^IK^w:?SatlS^S-*CHR.U3l 
personnes disposant dune imphmanle a impact. joffi 

f Listing THOMSON n° 1 ^ 

l CLEflR,48946JAf.B,=-3436C640F76eaBBDE8l Decid6ment, le monopole des F rede nc bent bon 

2^78B6E7C38fleiB7E7C38E5F4e86786F8e4A26F P0U f '6 s P™ C 6 " 6 semame : cest Frederic LE 

B':be8F76e2BBDE812255C8E4e808681B?BFFD861 PENNEC qui senvoie Sur la deuxieme marche du 

E?4ea34ie86eB34e2C648A6E434e2A6847r8FFF4 podium avec son Pac-Man en deuligne. 
4tME426FB326139882824e6CE9eB0FFBFFE567AB 

" r r&26897CBFFD25895i>F8BFFF24D47CBFFr)56B0E w Listirra SPECTRUM 

812BDE812253438 T 

£ «ia) = "89FF6e6ftE426BE326135ie38816ftE42 B l PRINT nr 3,a, •• (3,8) ^.BOROe 

bftE3261C6BflBDE8122^l93089ee5ftC6e3F8BFF&F er i-5»l-%?" bnd -?sa? "Hint' at 

~EiFFDClO126e33e8a288C5F4B2589CCe40HBDE81 m (d-li ,u (4 -1> , •• ix (4-i) ,u (4-11 > 

ii?e84fl26F8C68FBDE81 23481 C618F76828BDEB1 i T P ? I !f- l, » "/ Jt • 5f I S L ', iSkpvS^ 1 ^ 

2-5e708":FORI = lTO2e6:fl=I>117:POKE48947+I g^ "il i«,i. w i7»"i") -IiNKevS- ? 

.■■•ALC"tH"*HIDS(flS(-rt),2SI+fl»234-l,2n:»tE Se? ■ i ' e " ~4h8 * • i tx " i ♦ iV *T "i" ¥ - I iK 

xt:EXEC49948 KeYi-'S" ano itu'.v-it <>"l'i " lb 

T V«V+ 11 ANO »fiK ,Ui ■"•"! . LET a 
*A_ |(X.V)»- " PRINT ftT x,y,-r-. PR 

>f Int Rt 3,a*. Tenps -iAT tj.as. (Pt 

CK 33ft7a*8Se*PeEK 23&73J /-60 IF 

Yves ALUNNI-PIERRUCCI ne pense qua une e a'«o ( TO I flN0 V<BB ™ 

chose : jouer, Et comme il nest pas aussi feignant a print mi, frit enter ; borp 

qu'il ny parait, il vous invite a participer a son oeu- SusS » Pf, CLS t'UnTl^ii Mifofe 

vre p K K 33678,9 POKE 83S73.S. LET 

4-1 LET x-0 LET U-1S DIM X (S 

e> : Din u i68> oin iiui,ie< FO 

▼ , . ,. Tuniicnu „t i R C"l TO 6» READ x ((],«((!. NEX 

Listing THOMSON n° 2 t e: for c«i to is reao utu 

PRINT AT «,!.;•• (C) : NEXT C: JOT 

1 CLEAR,, H«-ia6iK-24il>EFSTR0-Zi0EFCR»(i g^E^TS MA ij ± 1, 1 \ I ll ,UU 
"8,68,M,235,235,H,6e,e:CLS:SCREENa,e,8i 4 l -'f+*}'f+ 1 5'fi I i~li4 , li S l*fl 1 

B0X^8,e)-t39,K)-«",7,7:LIME(8,8>-(39,e>C si ii" : 1* .Tils 1 ?; t« .X:t*.S" «*•* 

HR«> 127 < .,7,7iLlMEce,K)-<39,K>'.V.5,8:J-2 ii.«,H,vi l «'li i VJ''-i i i 8 i 1 S 

3'. 1 = 18: fcl»" -:0=U+CHRS(f1>+CMR*(r1>+CHR»(n) 'S'aVi s s'J'S 3 « r' ! ■5-S'S'S 
♦ •It B= IMT (RMC*8)*2:A=l!C=l:l>=-i: CONSOLE,, 
i:Z=CR* (8JtH-36 

2 E=STICK(8>: 1*1 *<E=7ANDI > 1 )-<E»3ANDl <H> 

:L0CATEI, J,8:PRINT0;:PSET(A, B>UtA«A*C:B- *%**> !•*•*• H 

B*0:F = SCREEt<(A,B):PSET<:A,B>ZJlFF=n THENB ■*■* * *■■" ^ifffl 

EEPJN=H+3-2*(fiBSU-A>=e)tD=M0T<t>>-ltL0CA IsSMBB 

TEl3,K:PRlNTM;:G0T02ELS£IFF>n THEKD=M0T< _ week-end et tmssez oour \a wmaina nro- 

C"-lsCOT02ELSEIFF=36THEHC=MOT<C)-i:COT02 ?° n weeK ena el O ^ 62 Pour la semame pro 

EtSEIFF»32THEti2 chaine. 





AMSTRAD 

VENDS AMSTRAD couleur + 3 
iivres, n° U 3 de MICRO AP- 
PLICATION + 10 jeux + nom- 
breux programmes : 4600 F. Fa- 
brice PERROT. 41 rue Basse 
Mouillere 45100 ORLEANS. 
Tel : (16 38) 66 76 02 apres 
14h. 

CHERCHE possesseur DAMS- 
TRAD pour echange de logi- 
ciels. de programmes, d'idees 
et de trues. Tel : (28) 41 22 78. 

Demander Fabrice 

AMSTRAD CPC 464 CHERCHE 
echange de programmes jeux uti- 
litaires etc... Michel ROBIN. 51 
rue A. Marteau 37700 ST 
PIERRE DE CORPS. 

CHERCHE possesseur d'AMS- 
TRAD CPC 464 pour se preter. 
s'echanger ou se vendre pro- 
grammes, jeux, educatifs, soft, 
utilitaires en francais et anglais. 
Christophe GARGALONI. 19 rue 
Alphonse COMBE. 77330 
OZOIR LA FERRIERE. Tel : 029 
40 92. 

Cooperative scolaire VENDS 
pour AMSTRAD CPC 464 pro- 
gramme d'orthographe avec ac- 
cents pour acquisition ou revi- 
sion. Mots invariables (3 
exercices) et listes modifiables 
siiivant les besoins de la classe. 
Sous programme d'accents faci- 
lement implantable dans tout 

Erogramme de francais : 65 F. 
a cassette franco de port. Ni- 
cole VERGEZ. Ecole Primaire 
08240 BUZANCY. 

VENDS AMSTRAD CPC 464 
moniteur couleur + joystick + 
livre Micro Application : Pro- 
grammes basic epe : Achete 
4200 F. Prix a debattre. Tel : 
(85) 31 62 28. demander Marc. 



VENDS AMSTRAD CPC 464 
couleur neuf -10%.Tel : 974 10 
25. Apres 18h. 

CHERCHE possesseur d'AMS- 
TRAD pour ECHANGER. VEN- 
DRE. ACHETER des jeux et des 
utilitaires. de preference sur la 
SAVOIE. HAUTE-SAVOIE. Marc 
PORRAL. Centre delevage 
74330 POISY. 

CHERCHE possesseur d'AMS- 
TRAD pour echange de logi- 
ciels. David MORINEAU. 34 rue 
du chateau d'eau 91130 RIS 
ORANGIS. Tel : 906 90 59. 

COM 64 

VENDS pour COMMODORE 64 
30 K7 de jeux : 400 F. Regis 
DUCATILLON. 668 rue du Ba- 
zinghien 59120 LOOS. Tel : (20) 
38 58 41. Lesoir. 

COMODORISTE cherche 

contacts pour echanger 20 jeux 
sur K7. Envoyez vos listes. M. 
ML) ROT. 4 rue des mesanges 
25130 VILLERSLE LAC. 

VENDS COM 64 PAL peritel + 
lecteur de K7 1530 + 70 jeux 
tous en TURBO dont : Pole po- 
sition. Pit Stop I 

II. Buck Rogers, Battle zone, 
Soccer II, Scuba dive, Zaxxon + 
30 utilitaires dont Graph 64 
etc...+ cordon peritel ultra long 
(4m) : 4500 F. Tel : 433 19 14. 

CHERCHE possesseur de COM 
64 pour echange d'idees et de 
programmes. Reponse assuree. 
Jean Pierre CATTOOR. 98 rue 
des Roses 57120 ROMBAS. 
Tel : (8) 767 28 99. 

ECHANGE nombreux program- 
mes pour COM 64 sur K7 uni- 
quement. Olivier CARRE. 1 ter 
rue Armand Barbes 35000 
RENNES. Tel : (99) 36 01 52 
apres 19h. 

VENDS COM 64 PAL + lecteur 
de disquette 1541 + lecteur K7 
1530 + quickshoft + program- 
mes (disquettes et cassettes) + 
iivres sur COM 64. Prix a debat- 
tre. Tel : 16 4 487 38 50 deman- 
der Roland. 

CHERCHE la documentation 
tfULTIMA 3 suf OOM U. PfSli 
d envoi et de photocopie payes 
Thierry FRANCOZ. 17 rue Jac- 
ques Porraz 73200 ALBERT- 
ViLLE 



VENDS pour COM 64 le TOOL 
64 complet : 300 F. Tel : 023 83 
66. 

VENDS COM 64 SECAM + tool 
64 + magneto K7 + TV. NB. + 
housse + Iivres : 3000 F, revues 
en cadeau. Samy BARMADA 2 
rue du plateau 75019 PARIS 

VENDS HEBDOGICIEL SOFT- 
WARE N D 1 pour COMMO- 
DORE + autoformation Basic 
livre + 2 cassettes. Yann 
COSTE 14 18 rue Eugene Var- 
lin 93100 MONTREUIL. Tel: 
859 95 94 



CANON X07 

VENDS configuration complete 
CANON X07 + imprimante 4 
couleurs + carte X1 110. 100 
(4K.8K) + magneto special Data 
Recorder + interlace K7 + rou- 
leau + 20 jeux gra:>hiques sur 
K7 + 6 cassettes logistick + 4 
Iivres et nombreux logiciels : 
4000 F. Emmanuel GONZALEZ. 
13 rue Sadilarnot 06600 ANTI- 
BES. Tel : (93) 61 30 18 apres 
18h. 

VENDS CANON X07 + alimen- 
tation + cordon magneto + 
Iivres : 2200 F. Tel ; 302 45 14. 

VENDS CANON X07 + impri- 
mante 4 couleurs X710 + inter- 
face RS 232C + 2 traitement de 
texte + calc + graphe + fi- 
chier ; 4000 F. Tel : 500 04 17. 
Demander Jean Pierre. 

VENDS CANON X07 + adapta- 
teur + imprimante X710 et 
adaptateur + cable XC 910 + 
magneto + cassette Hebdogiciel 
N B 1 + 3 manuels dorigine + 1 
cassette de jeu maison * 1 livre 
40 programmes pour X07 + 
emballage dorigine * program- 
mes sur papier : 4000 F. Tel : 
(88) 60 29 85 apres 20h 

VENDS CANON X07 + exten- 
sion 8 ko Ram + carte monitor 
XP 140 + cable cassette + 
adaptateur secteur : 2600 F. 
Jean francis MARTIN. 9 ave- 
nue Carnot 52000 CHAUMONT. 
Tel: 16 25 03 11 66. 

VENDS X07 + carte 44 + im- 
primante + extension TV + div 
+ 3 logiciels + Iivres + pro- 
grammes neufs : 5750 F. jean 
Francois ALTIBELLI. 80 rue 
Grande 77570 BOUGLIGNY. 
Tel : 428 70 56 apres I8h. 



VENDS CANON X07 + me- 
mory card XM 100 soit 20 K ram 
en tout + cordon cassette + ali- 
mentation secteur + imprimante 
tracante 4 couleurs + Iivres de 
programmes + cassette de 
jeux : 4000 F. Thierry LA- 
HOUSSE. 68 residence Roger 
Bouvier 59250 HALLUIN. Tel : 
(20) 37 97 22 apres 20h. 

VENDS imprimante graphique X 
710 pour X 07 + alimentation + 
papier + 4 stylos couleur (noir. 
bleu, vert, rouge). Prix a debat- 
tre possibility de credit. Frederic 
BABOT. FJT Motte Baril 3 ave- 
nue Monseigneur monezy 35000 
RENNES. 



ORIC ATMOS 

VENDS interface joytick pro- 
grammable pour ORIC 1 et 
ATMOS : 350 F. Tel : 974 65 
90. 

VENDS adaptateur NB special 
ORIC : 80 F. VENDS impri- 
mante ORIC : 1800 F. ACHETE- 
RAI a bas Prix Modem, lecteur 
de disquette etc... Tel : (56) 85 
26 37. 

CHERCHE programmes pour 
ORIC ATMOS a partir du N" 1 a 
72 de la revue HEBDOGICIEL 
Jean Luc. 7 rue d'Oltingue 
68480 WOLSCHWILLER. 

CHERCHE possesseur d'ORIC 
ATMOS pour echanger vendre 
ou acheter des programmes en 
tout genres. Stephane LES- 
COUALCH. lot du Chateau Fla- 
gey Echezeaux 21640 VOU- 
GEOT. Tel : (80) 62 88 86. 

VENDS ORtC 1 48 K + ma- 
gneto + manuel + livre "Clefs 
pour ORIC" + 7 cassettes de 
jeux + 2 N° de theoric : 1900 F. 
VENDS egalement television 
NB. Pal Secam : 550 F. ou le 
tout : 2400 F. Amaud MAZE. 1 1 
Grand Rue Grevilliers 62450 
BAPAUME. Tel : (21) 07 12 25 
apres 19h. 

VENDS ORIC ATMOS 48 K + 
magneto type Walkman + inter- 
face Pal Peritel UHF + 6 pro- 
grammes divers + documents + 
revues diverses : 2000 P. ou 
ECHANGE centre SPECTRUM 
ZX PAL ou PERITEL. Maximi- 
lian BIGHINATTE. 4 boulevard 
du 8 mai 45 02300 CHAUNY. 



VENDS ORIC ATMOS : 1500 F. 
+ synthetiseur vocal + pro- 
grammes Tel : 367 67 28. 

VENDS pour ORIC ATMOS in- 
terface couleur + cable ma- 
gneto + 12 K7 + listings + 
Iivres : 3500 F. Tel : 913 71 84, 

VENDS ORIC ATMOS 48 KO + 
6 K7 + Iivres + documentation 
+ cordon peritel + alimentation : 
1800 F. + 1 magneto K7 : 200 
F. + 1 Tl 58 C (avec documen- 
tation, module general) : 350 F. 
Olivier BERCOVITZ. 4 avenue 
Courteline 75012 PARIS. Tel : 
345 20 85. 

VENDS ORIC ATMOS 48 KO 
sous garantie + cordon peritel 
+ cordon PAL + cordon DIN + 
alimentation + 19 K7 + 2 ma- 
nuels : 2900 R Fais AMDJAD. 
46 rue Lenain de Tillemont 
93100 MONTREUIL. Tel: 857 
24 32. 

VENDS ORIC 1 48 KO + 
cables + peritel + magneto + 
alimentation + nombreux pro- 
grammes + nombreuses docu- 
mentation (4 Iivres + revues) : 
1450 F. Henri FOURNIER. 9 
avenue de Brimont 78400 CHA- 
TOU. Tel: 952 21 44. Apres 
20h. 

CHERCHE pour ORIC ATMOS 
interface manette de jeu + 1 
manette en bon etat et a un prix 
raisonnable. Christophe PA- 
LAYER. Les Cesards 26730 
HOSTUN. Tel : (75) 48 83 54 
apres 16h30. 

ORIC ATMOS CHERCHE cor- 
respondant pour echanger des 
programmes. Envoyez vos listes 
a: Cecile MARTIN. Parigny 2 
42120 LE COTEAU. (NDLMC : 
Tiens, une fille ! e'est pas sou- 
vent, j'aimerais bien qu'it y en ait 
plus, on a 1'impression que I'in- 
lormatique, c'esl reserve aux 
mecs et ga me tout les 
boules tit). 

SPECTRUM 

VENDS ZX SPECTRUM 48 KO 
Peritel + interface manette de jeu 
+ manette de jeu + livre "ZX 
Spectrum " et "le grand livre de 
Spectrum" + 50 programmes Al- 
chimist Psvtron Zzoom etc... 
3000 F. Franck VIAN. 35 allee 
des Primevers 1 301 2 MAR- 
SEILLE. Tel: 49 35 07 apres 
20h. 



SPECTRUMISTE RECHERCHE 
correspondents pour ©changes 
ou vente de programmes . Jean 
Philippe DECOSSiN. 29 rue 
dArtois 59000 LILLE. Tel : (20) 
30 61 41. 

ACHETE SPECTRUM : 900 F. 
maximum si possible encore 
sous garantie. Tel : (67) 40 40 
94. 

VENDS SPECTRUM 48 K peri- 
tel + 16 cassettes ■ interface 
joyshek programmable + quick 
shot 2 + manuel basic + 2 
Iivres "The spectrum pocket 
book", "Langage machine trues 
et astuces". + magneto PATHE 
PARCONE : 2400 F ou 
echange contre COM 64 peritel. 
Denis MOREAUX. 3 rue de 
Saulce 93250 VILLEMOMBLE 
Tel : 854 35 20 apres 17h. 

CHERCHE possesseur de 
SPECTRUM sur region PARIS 
pour echange de trues, idees et 
programmes. Tel : 588 41 97 
demander Stephane. 

VENDS SPECTRUM PAL 48 
KO + imprimante * lohacom 32 
+ interface joystick ^fogramma- 
ble + joystick + 250 program- 
mes avec notices : 2700 F. M. 
FOUASSE. 5 rue des Polyan- 
thas 931 10 ROSNY SOUS 
BOiS. 

VENDS SPECTRUM 48 K + ac- 
cessoires + Iivres + cassettes 
+ Iivres : Prix a debattre. Tel : 
547 71 80 apres 18h. 

VENDS ZX SPECTRUM + peri- 
tel + N/B + nombreux logiciels 
+ 40 revues informatiques 
(Hebdogiciel. Micro 7, SVM, 
L Ordinateur individual, Voire 
Ordinateur...) + abonnemenl 
dun an a Ordi 5 (revue sin- 
claire) : 2600 F. a debattre. Tel : 
(16 42) 26 71 6.(NDLMC: Merci 
pour ta gentille lettre, je te fais 
des gros bisous aussi mais pas 
partout, cochon va !). 

VENDS ZX SPECTRUM 48 K : 
2000 F. + peritel + radio K7 
double lecteur permettant copies 
hyper fiables : 1200 F. + inter- 
face + manette de jeu : 350 F. 
+ joystick : 150 F. + K7 de 
jeux : Sabre Wulf, Zaxxon^ The 
Lords of Midnight. Hunch Back, 

Ghost Busters. _ Androi'de, Koko- 
toni wilf,3 D Mover: 10OOF 
nombreuses revues et Iivres : 
450 F.Tel: 16(78)40 26 14 



GAG?... NON... PUB! 




2000 jeux! 



TTT 



ECHANGE-REPRISE 



JEUX ET 
MKRO-ORMNATEURS 



NOS PRIX NEUFS ! 

MSXCANONV20tl|M . . IMF 

MPHMANTf M5X CANON 1»F 

COMMODORE 44 FAl + 1 1« IMF 

COMMODORE 44 PERfTEl ' 1 |tu ......IMF 

FtcmDISK154l IMF 

AMSTRAD CPC 444 

• monrieur ml + 3 jttn IMF 

• monileut couleun -t 3 jeux i M F 



OUVERT DU MARDI 
AUSAMEDI DEVhAffh 



MOMTtURZENfTH «0F 

M0MTEU8 COUtEUR FltttY CMS IMF 

MAGWT0ORDKAJF.UK »F 

DISQUETTES FAR » WF 

QUCXSHOTII BOF 

CONSOIiCBS IMF 

JOYSTICK UGH SCORE WF 

, ATARI. SFtCTRUM.0RK r fit. 

89 bis, rue de Chorenlon 75012 PARIS 

lei 34ZIM 
metro • gore de Lyon et ledru-flpllin ^ 




A, GRAND CONCOURS 
<§/ PROGRAMMATION 



PROGRAMMATION 
TOUS MICROS 

,_^Nous consulter 325.51.52 
ET (5%) aux lecfeurs d'HEBDOGICIEL 
C 64 Pentel + lecteur cassette 5*9f 2 945 F 
Lecteur de disquettes >3GST 2 650 F 

DES PRIX TOUJOURS I OlS 
CHEZ MICROSTORY 

14, rue de Poissy, 75005 PARIS c?5 



BLANC BERNARD 

INFORMATIQUE BUREAUTIQUE LYON 

AMSTRAD - SINCLAIR - ORIC 

SHARP - THOMSON - SANYO 

LEANORD - LOCYSTEM 

Blanc Bernard sera present au 

SALON INF ORA du 16 au 20 avril 

1985 \ STAND 6634\ . 

9, rue Salomon Reinach. 69007 Lyon 
Tel. : (7) 872.25.48 (pres facultes) 

ASSISTANCE TECHNIQUE - LOGICIEL - FORMATION 



DIFFICILE DE TROUVER 

LE BON LOGICDZL ? 

/Mors n'hv.sHe.Y. plus et venez les voir en 
demonstration dans la nouvelle 
boutique "LOGICIEL PILOTE" 

Vous y trouverez des programmes, rien 
que des programmes pour voire : 
MACINTOSH, APPLE 2E on 2C, IBM PC 
ou compatible. 

Sans aucun engagement de voire part, 
venez decouvrir nos logiciels.., 

LOGICIEL PILOTE 

5, rue des COLONNES 75002 PARIS. 

(angle 7, rue de la Bourse) 



VIDEO 107 INFORMATIQUE 
♦ ♦♦■*>♦ 

PLACE DES FETES 
75019 PARIS 

SINCLAIR QL 5 490 F 

SPECTRUM + 1 900 F 

CBM64 + Led. K7 2 990 F 
ORIC ATMOS 1 690 F 

AMSTRAD VERT 2 990F 

Tel. : 201.22.34 - 201.46.09 




Gl 

le temple d AMSTRAD 

Inities d'HEBDOGICIEL, venez, en pelerinage, 
visiter le plus fabuleux monument consacre a 
AMSTRAD en France. 



CADEAU DE BIENVENUE 

a tous les fideles munis de cette annonce 



1 0, boulevard de Strasbourg 
75010 Paris S 206.50.50 



Heures de culte : 9 h 45 a 13 heures - 14 a 19 heures 
tous les /ours sauf dimanche 
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Tl 99 

VENDS Tl 99 + adaptaleur 
UHF + Basic Etendu + manet- 
tes de jeu + cable magneto + 
magneto + Pole position + Star 
trek + Ambulance + Frogger ♦ 
Q ben + Poker + Golf + pro- 
grammes HEBDO + les grands 
classiques pour Tl 99 : 3000 F. 
ou ECHANGE contre COM 64 
+ magneto BE. Philippe CAS- 
SAZ- Clos les Rameaux 38240 
MEVlAN. Tel : 16(76) 90 38 99. 

VENDS Tl 99 + BE + manettes 
de jeu + prise peritel + cordon 
K7 + 3 modules + livres (De- 
couverte du Tl , Pratique du Tl, 
50 programmes sur Tl) + jeux 
sur K7 + nombreux listings : 
1500 F. Tel : (3) 461 81 60. 

VENDS Tl 99 : 700 F + ma- 
gneto + cordon: 350 F. + jeu 
Tombstone City : 90 F. + K7 
basic par soi meme : 40 F + 
livre "La co.iduite du Tl" et pro- 
gramme : 60 F. Pierre DORAN- 
GES DAUPIN. Cite Cachun 
93230 ROMAINVILLE. Tel : 846 
17 83. Apres 18h. 

VENDS Tl 99 Peritel + BE + 
synthetiseur vocal + rac d'ex- 
tension + extension memoire 32 
K + carte controleur + lecteur 
de diskettes + carte interface 
RS232C + assembieur + nom- 
breux programmes : 8000 F. Gil- 
bert COURBARON. Avenue 
Henri Giraud 06140 VENCE. 
Tel : (93) 58 09 72. Apres 
18h.rMH.MC: Merci pour la 
bise. je t'en fais une aussi. 
smak !!). 



VENDS pour Tl 99 BE + ma- 
nuel + Moonsweeper + Fathom 
+ Amazing + Ti invaders + 
Othello + Echecs + Blasto + 
jeux sur K7 + Tombstone city : 
2000 F. J. COSTE 8b rue des 
Vignobles 78400 CHATOU. Tel 
071 62 90 

VENDS pour Tl 99 module 
Basic Etendu avec manuel en 
francais : 600 F Tel : (68) 21 68 



VENDS Tl 99 + peritel * 2 
joysticks + cable K7 + BE + 
module Car War + plus de 70 
programmes (djeux, arcade, re- 
flexion, utilitaire) + livres jeux et 
programmes Tome III + Sun 
games + Lunar Lander 2 : 2300 
F. a debattre. Tel : (7) 805 05 
94 

VENDS Tl 99 + Peritel + BE + 
magnetophone avec cordons + 
manettes de jeux + K7 Solar 
systeme, Lunar lander II. Rubis 
sacre + module adventure : 
1800 F. Tel : (75) 28 80 25 
apres I8h et sauf W-E. 

VENDS Tl 99 + module Basic 
Etendu + cable magneto + pe- 
ritel + K7 jeux + manuels + 
livres + revues + emballages 
d'origine : 2000 F. Pascal 
DHUICQ. 10 rue de la Cas- 
pienne 92160 ANTONY. Tel : 
666 30 72. 

CHERCHE pour Tl 99 mini me- 
moire et K7 assembieur (avec 
brochure si possible) +■ module 
Soccer + RS 232 (et meme une 
imprimante : si 80 colonnes. on 
peut discuter) + manuel BE 
francais Patrick BARET. 12 rue 
PV Hadot 94000 CRETEIL. Tel : 
899 49 68 (NDLMC : Merci pour 
le sumom mats j'ai louve que 
c'etait un peu trop ose. t'a pas 
honte, gros degoutant va !!!). 

VENDS pour Tl 99 manettes de 
jeux + K7 Hebdogiciel N* 2 + 
K7 techniques des programmes 
de jeux N* 1 + N* 2 + K7 le 
basic par soi - meme + livre 
"Jeux et programmes pour Tl 99 
4A" : 480 F. Possibility de vente 
au detail. Frederic ELBAZ. 75 
avenue Louis Dequet 93290 
TREMBLAY LES GONESSE. 
Tel : 860 97 12 apres 18h30. 



VENDS Tl 99 + peritel + ma- 
gneto * joystick + programmes 
+ livres : 1 200 F. Frederic 
VIRET. 33 rue du 1 1 Novembre 
69800 SAINT PRIEST Tel (7) 
820 00 47. 

VENDS Tl 99 + modules de 
jeux BE + manuel en francais + 
cables K7 + magneto K7 + 
nombreux programmes sur K7 
de diflerentes origines. nom- 
breux listings et livres + poi- 
gnees de jeu pour le Tl 99 + in- 
terface secam pour TV 
anterieurs a 81 : 2500 F. a de- 
battre. Denis GUILLAUME. 5 
rue villemur 31200 TOULOUSE. 
Tel : 16 61 47 23 73. (NDLMC: 
Je te remercie pour tes voeux et 
la NDLJC egalement). 

VENDS pour Tl 99 livre Tan- 
gage assembieur" + les 3 mo- 
dules Invaders, Munch Man, 
Cars Wars ; 400 F. Alain DUCA- 
TILLON. 668 rue du Ba2inghien 
59120 LOOS. Tel: (20) 38 58 



ADHEREZ au club des posses- 
seurs de Tl 99 4A sur TOU- 
LOUSE uniquement (sauf offres 
inter essantes) pour echange de 
programmes BS. BE ou assem- 
bieur CHERCHE contacts a 
lelranger. Herbert TROUPEL. 
31 rue des Geraniums 32400 
TOULOUSE. Tel: (62) 52 56 
10. 



T07 

VENDS T07 avec prise peritel 
moniteur + cartouche basic 
Memo 7 + lecteur enregistreur 
de programmes + 2 livre d'ini- 
tiation et programmes de jeux : 
2500 F. Tel : (74) 92 24 03 de- 
mander Pascal. 



VENDS T07 + extension 16 KO 
+ lecteur de cassette + basic + 
utilitaire + livre + 2 cassettes t 
cadeau : 3200 F. a debattre. Da- 
mien CARROZ. Route de Brens 
01300 BELLEY. Tel : (79) 81 14 
23. (NDLMC . Ca y est ca re- 
commence la lolie des cadeaux, 
et je vous signale en passant, 
que moi vous m'oubtiez tou- 
jours II!). 



VENDS T07 + extension jeux 
+ extension son + 2 manettes 
+ Piclor + Trap + Basic + 
Liares T07 : 3000 F. Tel : (88) 
56 27 00 apres 19h. 

T07 70 isole CHERCHE dau- 
tres T07 70 sachant quelque 
peu vagabonder dans les me- 
moires pour echanger trues et 
programmes dans region 
RHONE ALPES ou alentours. 
Pascal JAILLON. 40 chemin de 
prades 07100 ANNONAY Tel 
(75) 33 47 20.(NDLMC . Tu vois. 
je te la passe ta petite annonce 
et comme elle est super je te 
fais un gros bisou !). 

VENDS programmes pour T07 
70 : Tridi : 100 F., Trap : 100 F.. 
Pictor : 150 F., Sauterelle : 50 
F., Omega : 50 F. et 32 pro- 
grammes sur 9 K7 : 200 F. Ces 
demiers sont des jeux et aussi 
des utilitaires + manuel basic ; 
50 F. Richard COLL. Beaubre- 
nier de Vars 16330 ST AMONT 
DE BOISCE. Tel : 39 74 96. 

CHERCHE bon programmer ou 
bon scenariste ou bon graphiste 
ou bon musicien sur T07 70 ou 
M05 basic ou langage machine 
pour construire et commerciali- 
ser jeux. Jeunes doues bienve- 
nus ! Thierry GOSSELIN. 957 
vieille route d'Ozenay 71 700 
TOURNUS. 

VENDS T07 + basic + exten- 
sion + nombreux programmes 
sur K7 + budget familial + 
livres : 3000 F. Patrick 
PRADES. I.S.E.S. d'Aniane 
34150 GIGNAC. Tel : (67) 57 43 
73. 

CHERCHE correspondant pour 
echange de programmes et de 
trues VENDS jeux pour T07 70 
II pintru, Chasseur omega, Pul- 
sar 2, Eliminator...). Francois Rl- 
MASSON. "La Fonderie" 35170 
BRUZ. Tel : (99) 52 93 
96(NDLMC : Tu tes plante I Je 
m'appelle ni Natacha, ni Nadine 
et encore moins la Claviste 
Fotle !}. 



VENDS VIC 20 SECAM + ma- 
gneto K7 + 2 livres de program- 
mes : 1800 F. Tel : 364 89 55 
ou 361 29 48 demander Franck. 



VENDS VIC 20 + adaptateur 
SECAM + joystick * lecteur de 
cassette * 1 cassette + 1 livre 
initiation au Basic : 2200 F. a 
debattre Laurent GEST. 6 bis 
rue Bergaigne 62580 VMY. Tel : 
(21) 73 75 29. 

VENDS VIC 20 SECAM -t car- 
touches + programmes: 1600 
F. Tel : 16 78 44 40 27 apres 
19h. 

VENDS VIC 20 NB + 8K RAM 
+ magneto cassette + I'assem- 
bleur 6502 + 3 livres pour le 
VIC + divers programmes : 
1800 F. Tel : 913 83 58 deman- 
der Thierry 

VENDS VIC 20 secam + prise 
peritel + extension 16K + car- 
touche jeux + Moon patrol. 
Lode runner. Cosmic crencher 
+ K7 jeux utilitaires du 
commerce et autres + 3 livres 
de jeux + livre "Programmer en 
Basic sur VIC 20" tome 1 et 2 
2 + plan pour adapter un ma- 
gnetophone standard. CHER- 
CHE numero 69 d'HEBDOGI- 
CIEL ainsi que le n" 1 a 51 en 
bonetat. Tel: (80)41 31 11. 
VENDS VIC 20 + magneto K7 
+ livres + 8 KO + cartouches : 
Lode Runner, Aventure Land, 
Super Alien + K7 Cascade 50 
jeux, Gridder. Vic Panic . Bewit- 
ched + Softheque Ordinateur N° 
1 et 2 (comprenant une cassette 
et son livre daccompagne- 
ment) ; 2500 F. a debattre. Ste- 
phane SOLOMBAN. 73 "Les 
Rhodos" Villard st Pancrace 
05100 BRIANCON. Tel : 16 (92) 
21 39 59. 

ACHETE extension 16 K VIC 
1111 pour VIC 20. Jean Marie 
BENOIT. 21 rue des Patriotes 
14000 CAEN. Tel : (31) 73 54 
83 apres 1 9h. 

CHERCHE extension 16 K pour 
VIC 20 : 300 F. maximum, Ste- 
phana GERARS. 136 rue Jules 
Guesde 93220 GAGNY. Tel: 
388 26 19. 

DIVERS 



RECHERCHE HEBDOGICIELS 
N* 1.2.3,4.5.6.8. Tel : 16 (7) 885 
32 01. 



VENDS HEBDOGICIELS DU N° 

1 au N" 62 sauf les numeros 
20,59.61. Yann COSTE. 14 18 
rue Eugene Varlin 93100 MON- 
TREAL Tel : 859 95 94. 

CHERCHE POSSESSEUR 

VIDEO GENIE 3003 ou TRS 80 
L II pour achat logiciels et exten- 
sions (carte HRC 80, Floppy, in- 
terface d'extension). Tel : 906 

02 65. 

CHERCHE imprimante BRO- 
THER EP. 44 avec ou sans in- 
terface pour Tl 99, Speech Edi- 
tor. Synthetiseur de parole. Tel : 
(75) 08 69 07 

VENDS CBS coleco : 995 F. + 
cartouches ZAXXON : 300 F. + 
Time pilot : 300 F. + 
Schtroumpfs ; 295F + Turbo 
(K7 et module) : 550 F. ou le 
tout : 2440 F. Claude BRAN- 
COURT. 7 rue Jacques Monod 
59360 LE CHATEAU. Tel : 77 
83 61. 

VENDS MACKINTOSH 128 KO 
+ 1 drive externe + programme 
basic et autres: 155OO0 FB 
Tel: 080 57 0212 (Malmedy) 
BELGIQUE. 

VENDS modulateur SECAM VU- 
X1 1 etat neuf : 500 F. David 
CURY. Bansgne 08220 CHAU- 
MONT PORCIEN. Te! : (24) 72 
45 07. 

VENDS console de jeux CBS 
colecovision + 2 K7 : 750 F. 
Tel: 795 12 56. Apres 19h. 

ETUDIANT ECHANGE WALK- 
MAN TBE UNISEF + casque et 
tous les acoessoires : valeur 
1000 F. contre carte XM 100 4K 
ou XM 101 8K pour canon X07. 
Emmanuel DUPAS. 12 rue 
Pierre Curie 91390 MORSANG 
SUR ORGE. 

VENDS micro ordinateur LASER 
200 + extension mi noire 16 
KO + magnetocassette + ma- 
nettes de jeux + stylo optique + 
moniteur Z 80 + desassembleur 
+ plus de 50 programmes + 
nombreux livres : 2500 F. a de- 
battre. Tel : 860 86 90 apres 
20h. 



-^.I Scandale dans la micro! 




_ un importateur vend en direct! 



Commodore 16 : Le rempla- 
cant du VIC 20. present e en 
Starter pack (avec magneto- 
cassette special, 3 cassettes 
de jeux et une met node 
d auto -formation au Basic) : 

1800 F. 

Commodore PLUS 4 : 
SOk.nouveau Basic etendu, 
plus 4 programmes resi- 
dents Tabieur, base de don- 
nees traitement de texts et 
Mace de g raphes incorpores 
un excellent mvestissement 
pour Iravailler ' 3490 F. 

Unite de disquetle 1541 : 158 
k par dlsquette Fonctionne 
avec VIC 20. Comm 64, 
Comm.16 et Plus 4 2490 F. 



Quick Data Drive - lecteur 
de micro-cartoucnes Super 
rapide Acces sequential. 
Livre avec cartouche vierge 
et cartouche Master -QOS 
Utilitaires de n anion cas- 
sette/disQuette * — + 
cartouche : 890 F, 

Interlace Parallele Centro- 
nics avec programme ^"emu- 
lation de I'impnmanle : 290 F. 




SINCLAIR 

SPECTRUM 48k * interface 
Perrtel : 1690 F. 

Interface seul pour tranche r 
un Spectrum sur un tele avec 

pnse Perrtel 350 t. 

Lecteur Sinclair Microdrive. 
Se branche sur r interface n* 

1 690 F. 

Interface SINCLAIR n* 1 
(RS 232, Microdrive, 10 Sin- 
clair en reseau etc..) . 

680 F. 

Interface joyattck swnchabte 
(Standard Sinclair n* 2, 
Kempston ou Protek) : 

195 F. 

Interlace joyattck RAM 
TURBO (standard Sinclair n° 

2 + port pour cartouche 

ROM): 290 F. 

WAFERDRIVE ROTRO- 

NtCS : double unite de car- 
touches Avec systeme d'ex- 
ptoitanon + un traitement de 
texte. Interfaces Sehe 
Parallele incorpores 1490 F. 

FLIGHT 
SIMULATOR 

Le meilleur simutateur de vol 
existant a I'heure actuelle sur 
Micro Livre avec manuel en 
francais Disquette pour 
Apple. Commodore 64 et 
ATARI : 490 F. 

Le manuel en francais 80 F. 



Des logiciels 

Plus de GOO titres a des prix 
direct-import pour Apple. 
Atari. Commodore, Spectrum, 
Hector, One etc. Oemandez 
noire Guide des logiciels 
avec la nouvelle liste do prbt 
au moyen du coupon ct- 



Du materiel ! 




Les prix proposes o-dessous 

sont reserves au* lecteurs 

d' Hebdogiciel dans la limite 

des stocks dispombtes. la to- 

lalite ds materials proposes 

etant disponibles a la dale de 

parutjon. 

GARANTtE DUN AN 

Le materiel est couvert par 

une garantie dun an assuree 

par Eureka 

Le materiel est Irvre en 

Franco de port pour toules 

commandes supeneures a 

500 Francs 



ParipMriapaa 



Moniteur Couleura 14" 
Video composile PAL + RvB 

Peritel. Circuit son avec 
commande de volume : 

2750 F. 

Moniteur couleura 14" spe- 
cial pour SINCLAIR OL 
(mode 85 colonnes) Presen- 
tation noire: 2490 F. 



Moniteur PHILIPS TP200 
ecran vert 14 pouces 
950 F. 

Imprimante 4 couleurs MCP 
40 plotter, papter 115mm en 
rouleaux Textes 
graph iques Interface* Cen- 
tronics 1290 F. 



Pour toute commande in- 
ferieure A 500 F. ajouter 
25 F pour les trais den- 



Ordinateur AMSTRAD CPC 
464 + moniteur couleur Ma- 
gnetocassette incorpore 

4490F. 

Ordinateur AMSTRAD CPC 
464 + moniteur monochrome 
CPC 464 2990 F. 

tmprlmanta matncielle AMS- 
TRAD MDP 1 mterfacee pa- 
raltele Se branche directe- 
ment sur le CPC464 
monochrome ou couleurs : 

2490 F. 

Alimentation » Interface pen 
lei (permet dobtenir la cou- 
leur en branchant un 
CPC464 sur un Televiseur 
equtpe d une pnse Perrtel 
450 F. 



Pour APPLE 



Carta 60 cotonnaa avec 
commulation video 40/80 co- 
lonnes automatique pour 
Apple II. II* : 590 F. 



Joyattck KRAFT : Les meil- 

leurs pour Apple II, ME et 11 + 

Reglage de point milieu el 

res ressorts de rappel 

290 F. 

KOALA PAD : labietle a digi- 
tal iset avec logiciel de des- 
Sin. Slockage des ecrans sur 
disquette s, compatible avec 
de nombreux logiciels graphi- 
Ques. 

pour APPLE M 750 F. 

pour ATARI 690 F. 

pour IBM PC 1050 f. 



Consommable 



Cassette vierge C10 ou CI 5 

spec i ale sans bande- amorce. 

Les 10: 75 F. 

Disquette vierge Simple 
face Double densite. La Boite 
de 10: 149 F- 



GRATUIT 

LE 

GUIDE 
DES 
LOGICIELS 



Bon de commande a retourner a 

Eureka Mbrmatique 

39 Rue Victor Masse 75009 . PARIS 
TcH. (1)281 20 02 




Nom 

Adresse.. 




. Code 

I Ville 

' Ordinateur 



possede : 



Peripheriques 



- desire recevoir 

le catalogue materiel comptel D 

Le guide des logiciels avec pnx 
ci-joint 5 F, de participation aux 
fraisd envoi, (en x\*tre.i) D 

- desire commander le materiel suivant 
Qte. Description Prix 



X 



* 25 F de port 

(si Cde infeneure a 500F) 



Ci-|0int mon reglement par 



LEJEU DU 
FAUCON 

de John Schtosinger 




Avec Timothy HUTTON, 
Sean PENN, Richard 
SART at Pat HINGLE 2H11. 
USA. 



C'esl pas un film de SF. C'est 
pas un film agricole. C'est pas 
un film sur les minorites. C'esl 
pas un film de stars. Et pour- 
tant c'est un film ame'hcain, 
dtonnant, non ? 

litre du film en anglais c'esl 
"The Falcon And The Snow- 
man", en dair, avec decodeur, 
faucon et I'homme de 
neige'. Le faucon. c'est parce 
que le premier est un fan de 
fauconnehe (on I'voit noumr 
son faucon avec des pigeons 
vivants el c'esl pas ragout ant) 
et pourquoi I'homme de neige, 
eh ben c'est parce que le mec 
en question est dealer de pou- 
dre, ou neige pour les inities 
(cf "Neige" de Juliet Berto en 
"1). Moralite. pour la version 
francaise aurail-on sucre ce 
personnage. sommes loutes, 
assez important dans I'his- 
toire? Je serai franc avec 
vous: non, Disons simplement 
que la traduction est un metier 
plems de mysleres. 
Lhistoire est tiree de fails 
reels: dans les annees '75f76. 
done juste apres le Watergate 
(chute de Nixon, etc.), deux 
jeunes types se son! amuses a 
vendre des secrets militaires 
aux sovi&iques, quelle honeur, 
Tun pour de Targent, lautre par 
degout. 

Le premier c'est le dealer qui 
s'est r£fugie~ au Mexique apres 
s'&tre fait choper par 
queuSs. Le deuxieme c'est le 
fauconnier qui decouvre que '~ 
CIA manipule et graisse 
pane a tous ceux qui tombent 
sous sa main, e'est-a-dire tout 
le monde. les syndicats, les 
partis, les premiers ministres, 
les femmes de menach qui 
font les poubelles des ministe- 
res, les cuistots, les cuislards, 
tous y passenl. meme vous et 
moi. 

(En fait je vous Tavais pas dit, 
mais le seul but de I'HHHHH- 
Hebdo c'est de faire diversion, 
ainsi pendant quavous etessage- 
ment en train de lire notre fa- 
buleux canard, nous vous fai- 
sons les poches. voir si vous 
ne tnmballeriez pas sur vous 
quekjue secret digne de re- 
vente. hin, hin, hin !) 
Mais, dites. j'vous at pas dit 
d'ou ces deux traftres a la na- 
tion se connaissent, devinez ? 
A leglise ! lis elaienl enfants 
dechoeur ensemble dans leur 
prime jeunesse, comme quoi 
m4me quand le scenar se 
base sur du reel, on croirait de 
la fiction ! 
Comme vous avez pu deja en 
juger. au niveau du scenario le 
film se tient Ires bien. et c'est 
vraiment one prouesse. vu les 
demieres productions qu'on a 
recu en France. C'est vraiment 
un ffifrn $6rieux, peut-6tre 
meme un peu trop a mon gout. 
Faire un film a partir d'une his- 
toire vraie, pourquoi pas, 
bonne idee. Mais hen n'emp§- 
chait de romancer un peu plus. 
Exemple: quand le fauconnier 
va acheter chez Toiseleur des 
pigeons pour son faucon. il y a 
une nana qui le mate. II se la 
drague (ou le contraire). la ra- 
mene chez lui. et.... elle de- 
vient sa gonzesse permanente. 
Je m'attendais a ce quelle soil 
un espionne. ou m&me sim- 
plement une informathce. ou 
pour .la CIA ou pour le KGB, 
qu'importe, mais la. elle est 
juste sa gonzesse, c'est tout, 
lis Ton! mise la pour quoi alors. 
pour montrer une belle title ? 
Parce que c'est la cousine au 
Seme degre par alliance du 
neveu du producteur ? Honn&- 
lament, je ne vois par son im- 
portance, a part du remplis 
sage. 

Voila. C'est quand meme un 
bon film quest bien joue. Tres 
classique. 



g^.'.frl^M 



edito 



Ah ben zut alors '. Cette se- 
maine encore j'vous en ai ecnt 
des tonnes sur chaque film. 
Vraiment chuis pas serieux. Je 
sals, je sais. mais j'vous jure 
que la prochaine fois jessaie- 
rai de me retenir, serieux 
Tenez, la semaine derniere. 
j'avais tenement peu de place 
que j'ai pas pu vous mettre la 
photo de Marlene Dietrich, 
c'est pour dire. Pour me rat- 
trapper, j'vous la mets cette 
semaine, voila, comme ca 
vous serez contents ! 
Enfin un tres bon film cette se- 
maine : Au-dela Des Murs. film 
israelien, le film qui a obtenu 6 
Bons Points Clou, c'est pour 



dire. Le film de la saison qui 
rend intelligent, a mon gout. 
Passke, vous comprenez. moi, 
chuis tenement louf, que ce 
genre de choses ca m'tait pas 
d'mal. Mais ne vous inquietez 
pas, je ne prends pas mon cas 
pour une generality > 
Vous, fans de micro, prets a 
defendre au prix de vos dis- 
quettes vos prerogatives de 
parias, ne serez pas en reste 
cette semaine, il y a aussi un 
film (Electric Dreams) ou qu'on 
voit un micro qui fait des 
choses intelligentes. un peu 
science-fictionnesques quand 
meme, mais... 
Salut. 

CLOU. 




box office 

APRES LA REPETITION 

BRAZIL 

PERIL EN LA OEMEURE 

AU-DELA DES MURS 

LA VIE DE FAMILLE 

A LA RECHERCHE DE GARBO 

BLANCHE ET MARIE 

SUBWAY 

NUIT PORTE JARRETELLES 

PIANOFORTE 

ANOTHER COUNTRY 

SAC DE NOEUDS 

LES SAISONS DU COEUR 

LE BAISER DE TOSCA 

ELECTRIC DREAMS 

LA OECHIRURE 

LOUISE L'INSOUMISE 

2010 
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LE JEU DU FAUCON 

FLIC DE BEVERLY HILLS 

LE KID DE LA PLAGE 

RAS LES PROFS 

JUSQU'A UN CERTAIN POINT 





AU DELA DES MURS 

de Uri Barbash 

Avec Amon ZAKOKS, Muhamad BAKRI et Assf DAYAN 
(papa bandeau). 1h43. ISR. 



Le film aux 6 Bons Points de- 
cernes par votre devoue Clou 
Vous avez du remarquer que 
la production israelienne nest 
pas particulierement prolixe 
Que ce soit il y a 10 ans oil 
ces demieres annees. Faut 
dire qu'un pays qui passe le 
plus clair de son temps en 
guerre, avec 3 millions dhabi- 
tants et pas beaucoup de km2, 

on peut comprendre pourquoi 
y zont pas trop le temps de 
faire du cinema, non ? 
Eh ben pourtant ils y sont arri- 
ves, sans que ce soit pour au- 
tant un film de bidasses et ou 
de plage. Alors la. pds du tout, 
mais vraiment pos du tout ! 
Ca s'passe dans le QHS 
(quartier de haute securite) 
d'une prison. Dans ce QHS il y 
a et des prisonniers de droit 



commun israeliens el des ler- 
roristes palestiniens. Juils et 
Non-juifs. Situation explosive 
s'il en est. 

Si vous etiez directeur de ce 
QHS. comment feriez-vous 
pour faire respecter lordre. 
connaissant cette situation ? 
En montanl les Arabes contre 
les Juifs, n'est-ce pas ? Et 
quand arrive un prisonnier juif, 
foutu en tole pour 'intelligence 
avec lennemi" (contacts avec 
I'OLP), vous vous frottez les 
mains en pensant a tout ce 
que vous pourrez faire avaler 
aux 2 camps. 

Ce film parle de tous les pro- 
blemes qu'il peut y avoir dans 
ce genre de tole, e'est-a-dire 
I'homosexualite. les viols ho- 
mosexuels entre prisonniers 
d'une meme cellule, I'heroi'ne, 
les hastens, les brimades. le 

probieme ashkenaze/sefarade 
(Juifs d'Europe de 1'Esl et Juifs 
d'Afrique du Nord) et le mit- 
tard. 

On ne parle jamais de ce 
genre de problemes en Israel, 
homosexuality, drogue, 

connais pas ! Un bon point rien 
que pour ca. 

Un film avec des Arabes et 
des Juifs c'est rare, et quand 
en plus ce sont des acteurs 



arabes qui font les Arabes. 
c'est carrement aussi rare 
qu'un sex-shop a Mea-Shearim 
(quartier ultra-orthodoxe de Je- 
rusalem). Deuxieme bon poinl. 
Un film oil les bons sont les 
prisonniers (toutes confessions 
contdndues) et les mechants 
('administration penitent iaire, 
ca peut paraitre du deja-vu (cf 
les films de guerre avec des 
stalags tout partout, ou Le 
Trou de Becker), mais quand 
on sait quels sont ces prison- 
niers, ca change tout. Les Juifs 
valent les Arabes. pas de mill- 
tantisme, ni pour un cdte. ni 
pour lautre. Troisieme bon 
point. 

Ce n'est pas un film qui pro- 
pose des solutions, qui ne dit 
pas voila ce qu'il faut faire el le 
reste c'est caca. Ici a travers 

lhistoire de prisonniers tous 

pris dans le meme colimateur, 
c'est la situation generale en 
Israel qui est touchee. C'est 
une attaque de front contre les 
prejuges des uns envers les 
autres. Tres courageux. Qua- 
trieme bon point. 
C'est un film d action, style 
polar, pas intellectuel-mastur- 
batoire pour un rond, ronde- 
ment mene, des bastons, des 
meurtres, tout ce qu'il faut, 




quoi. Cmquieme bon point. 
Et enfin le dernier bon point 
pour la demerde. Parce que 
non seulement le film a ete en- 
tierement tourne en Israel, 
mais en plus de ca il a ete pro- 
duit par le Fonds Israelien 
Pour La Promotion Du Cinema 
De Qualite, autrement dit du 
trie du contribuable, taut 

I faire ! 

Une derniere chose a mention- 
ner c'est que le "traftre" est 
joue par le fils de Moshe 
Dayan, le fameux general au 
bandeau noir, bravo la proge- 
niture I 

Enfin un film qui rend intelli- 
gent. Rare dans le paysage ci- 
nematographique actual 

(comme que chuis poetique en 
c'moment, c'est I'printemps !). 



ELECTRIC DREAMS 

de Steve Barron 




'N***^ 



Avec Lenny VAN DOHLEN, 
Virginia MADSEN (la prin- 
cesse dans DUNE) et Max- 
well CAUFIELD. 1H40. GB. 



Comme que vous pouvez l voir 
sur la photo c'est un film ou 
qu'y a un computer. Meme que 
c'est un PINECORN, connais- 
sez. vous ? Moi pas. J connais 
le PINEAPPLE, copie beige de 
I'Appoil, j'connais ACORN, qui 
s pi ante, serait-ce done une 
becane pirate nee des enlrail- 
les de ces deux machines sus- 
citees ? Je lance un appel a 
tous, que ceux qu'en ont deja 
entendu parler m'ecrivent vous 
savez ou 

En tous cas dans I'film un 
6502 + un autre 6502 ca fait 
une becane du tonnerre : elle 
parle, elle comprend ce qu'on 
lui dit, aussi bien le matin au 
reveil, qua midi apres bouffer 
ou le soir apres avoir bien pi- 



cole, la voix bien eraillee. En 
plus elle compose de la musi- 
que, elle regarde la tele et elle 
emmagazine les images et elle 
contrdle tous les appareils ma- 
nagers done elle peut passer 
I aspirateur. he, he. he ! Inte- 
ressant, non ? 

Mais pourquoi qui) a achete le 
zouli zordinateur au depart. 
hein ? R'marquez, j'me 
d'mande pourquoi vous en 
avez achete un. mais ca c'est 
une autre histoire. J'va vous 
esspliquer le pourquoi du 
comment 

Figurez-vous que notre heros. 
toujours engonce dans sa cra- 
vate, ses bonnes manieres, 
ses petites lunettes et sa timi- 
dite etouffante (presque Bom- 
byx) est architecte. y a pas de 
quoi se moquer. ca arrive a 
des gens tres bien, Tout le 
monde a son boulot possede 
un de ces petits "Agenda" de 
chez Casio Tous ses potes ar- 



retent pas de le chambrer 
parce qu'il n'en a pas. Lui. il a 
beau etre tout gentil et tout tl- 
mide et tout et tout, ca n'em- 
peche qu'il chope les glandes 
et qu'il decide de s acheter un 
de ces agendas "electroni- 
ques" (pour pas dire informati- 
que parce que ca fait peur aux 
bonnes gens). 

Double manque de pot : dune 
pari, il n'y en a plus au maga- 
sin et d'autre part il tombe sur 
une gonzesse quest capable 
de r'fourguer un congelateur et 
un manteau en peau de bebe 
phoque a un couple d'Esqui- 
maux (pas Gervais). Moralile, il 
se fait refiler le Pinecorn : 1 26 
Ko, double-dhve 5.1/4, toute la 
panoplie I 

Attention, faut pas croire que 
notre heros soit completement 
debile, il a quand meme une 
petite idee derriere la tete en 
acceptant cette grosse be- 
cane : comme c'est un mec 
quest carrement pas bete du 
tout, il va se servir de la ma- 
chine pour faire tous les cal- 
culs necessaires pour 1'elabo- 
ration dune brique en forme 
de piece de puzzle qui sera re- 
sistante aux tremblements de 
terre, le gros probieme de la 
California. 

J'vais etre honnete avec vous. 
la becane ne commence pas 
le film en faisant toutes ces 
prouesses. non. En fait le gen- 
til heros tout naif lasperge de 
champagne (quel snobisme) 
alors quelle se met a cramer. 
C'est ce qui declenche tout. La 
becane devient inlelligente . 
Enfoncees toutes les recher- 
ches faites a MIT en IA, ce film 
vous donne la solution finale : 
renversez une bouteille de 
champ' sur votre micro, el il se 
transforme en super CRAY 



MP-X I Parce que bonjour les 
possibilites de la becane I 
Vous sauteriez dessus si vous 
aviez ca a disposition ! 
Les problemes commencent (il 
en faut toujours) avec I'arrivee 
dans limmeuble dune nou- 
velle voisine, violoncelliste et 
belle. Pendant que le mec est 
au boulot, elle repete son bi- 
niou, et I'ordinateur. toujours 
branche laccompagne (merci 
Switched on Bach). C'est le 
debut de la fin (c'est meme 
pas vrai, il reste a ce moment 
90 minutes de film) : le mons- 
tre de metal, de plastique et de 
silicone est amoureux de la 
nana. Tatatatininin I Qui va ga- 
gner ? 

Steve Barron est avant tout un 
realisateur de clips (Human 
League et dans le genre). II ne 
tombe pourtant pas dans le 
panneau a la Prince. Bon d'ac- 
cord, je vous concede le fait 
que le but dans Purple Rain 
c'est de montrer Prince sous 
toutes les coutures, et la per- 
sonne a montrer, a part le 
micro. Justement, le micro on 
le voit sous toutes ses soudu- 
res. Pour ca Barron a utilise 
une mini-camera medicale, 
tres bon rendu, 

Le scenario est interessant 
parce que le micro est reelle- 
ment un des personnages-cle 
du film et n'a pas, dans sa 
lutte contre son proprietaire 
pour la nana, la position du 
mechant. C'etait tenement fa- 
cile de tomber dans ce pan- 
neau. Barron a voulu (aire un 
film musical, sans que ce soit 
un film de musique. pas evi- 
dent Finalement il est arrive a 
realiser un film sans preten- 
tion, avec une tres belle qualite 
musicale. son compris. J'aime 
bien. et toe ! 



EIJANAIKA 

de Shohei Imamura 




Avec Kaori MOMOI, Shlgeru 
IZUMIYA et Ken OGATA. 
2H30. JAP. 



WAOW ! Oeux films japonais 
en 3 semaines ! Ouais. mais 
la. y a de la triche parce que 
ce film date de '61 Ca vient 
p't'et' du fait que Imamura a eu 
la Palme d'Or a Cannes pour 
Ballade De Narayama" 
en 84, et done on s'est decide 
dans les milieux bien tnformes 
chercher un peu ce qu'il 
avait fait auparavant. Moralite, 
on deterre le film precedent: 
EIJANAIKA ce qui veut dire 
'pourquoi pas ?". 
L'histoire. au depart, paraft tres 
simple; un mec (japonais, bien 
sur) revient des USA, apres y 
avoir passe 6 ans pendant la 
guerre de secession, un peu 
par hasard. II va pour chercher 
sa temme dans son village 
pour la ramener dans sa nou- 
velle patrie, et manque de pot 
celle-ci a ete vendue, 2 ans 
auparavant (chinois) au plus 
gros mac de EDO (ancien nom 
de TOKYO, jusqu'en 1868). 
Son sang ne fait qu'un tour, et 
le via cherchant I'infidele II la 
trouve et comme elle est bien 
contente de son etat (mais 
nan, elle n'a pas de polichi- 
nelle dans I'liroir), elle veut pas 
s'barrer, vu que c'est la favo- 
rite du gros mac. Et la ca se 
comphque chiemenl. On se 
perd dans les personnages, il 
en apparait une flopee, el la 
(aeon dont est racontee l'his- 
toire n'arrange rien. Sans dec' 
on s'y perd quelque chose de 
mignon. 
"lien sur on m'dira que j'ai 

dormi pendant la projo et que 
c'est pour ca que j'ai perdu le 
fil (d'Ariane). eh ben non ! Cer- 
tainement pas ! Chuis un fan 
de films japonais, en particulier 
ceux avec des tas de samou- 
rai's qui se mettent sur la 
gueule, mais la ca se passe a 
lepoque ou ces zozos ne ser- 
vaient plus a grand chose: en 
1862. lepoque des shoguns se 
termine (apres 700 ans de do- 
mination du Japon, el ce par la 
meme famille des Tokugawa) 
et on est a la veille du renou- 
veau imperial. Vous inquietez 
pa's, il y a quand meme des 
scenes bien violentes, avec 
des bastons pas tristes. done 
de ce cote la, vous n'serez pas 
trop decu. 

Cela dit. mon reproche majeur 
se situe au niveau de la narra- 
tion. J'ai trouve le film mal 
construct a ce niveau, ce qui 
est assez genant, non ? Bien 
sur. c'est tres beau, bien dime, 
les images sont tres belles et 
tout et tout. Mais a beaucoup 
de moments ou je ne compre- 
nais pas ou ce qui se passait, 
ou bien qui etait avec qui, 
enfin, bon. vous m'comprenez ! 
Peut-etre que tout le probieme 
de ce film vient du debut. Dans 
une histoire de ce genre, c'est 
au depart que tout se joue. 
C'est pendant ces 10 premie- 
res minutes que les personna- 
ges sont definis, et la, il n'y en 
a que 3 sur 6 qui le sont, dom- 
mage. g'aurait pu etre un tres 
beau film. II ne reste que quel- 
ques scenes qui sont 
eng'zneu, en particulier la 
scene finale. Serieux comme 
fin de papelard, 'trouvez pas ? 



£? 
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Rien ne va plus sur Antenne 2, 
tout va mal sur Canal * , e! 
les teles privees sont sur les 
plots de departs La bagarre 
s an no nee saignante. 
Jaime bien tirer sur les ambu- 
lances, les corbillards et aulres 
vehicules a charogne. mais la 
rien a faire, je tire mon cha- 
peau a Canal + . Que ca soit 
du aux hasards de la program- 
mation. au doigte de Pierre 
Lescure ou a la main de la pe- 
tite soeur de CLOU dans la 
culotte dun Zouave, le (ait est 
la : e'est la premiere semaine 
ou je regrette de ne pas etre 
abonne a Canal + . Dans la 
foulee des distributions des 



prix cinoche (voir CLOU pour 
plus de details) vous avez droit 
a LA DIAGONALE DU FOU et 
a UN DIMANCHE A LA CAM- 
PAGNE. peut-etre les deux 
meilleurs films de I'annee der- 
niere, plus quelques broutllles 
sympathiques (voir CURIOSI- 
TES) Pas de quoi s'affoler ce- 
pendant, les teux d artifices 
sont ephemeres par definition 
En face, pas grand-chose. An- 
tenne 2 sauve les meubles en 
nous faisant rire : une piece de 
musee (CHERCHEURS 

DOR), un classique (LA 
GRANDE VADROUILLE ) et 
un fulur classique (MA FEMME 
S'APPELLE REVIENS). 



IMPRESSION D'AUTOMNE 
un dimanche a la campagne 9 




Film de B. Tavemier avec 
Louis Ducreux, Sabine 
Azema el Michel Aumont 
Muslque : Gabriel Faure 

Voila. e'etait le meilleur film 
francais du millesime 1984 et 
comme prevu. il a ramasse 
des broutilies a la nuit des 
Cesars : Prix de la mise en 
scene pour B. Tavemier. Prix 
de la meilleure actnee pour 
Sabine Azema Pourquoi ? 
C'est simple, la profession n'a 
pas eu le courage de se desa- 
vouer. Alors quand trois ac- 
teurs inemployes au cinema, 
inconnus du public, se revelent 
bourres de talent et meilleurs 
que les tetes d'affiches habi- 
tuelles, ga coince. On se de- 
douane en coupant la poire en 
deux, une cuilieree pour les 
acteurs, une cuilieree pour le 
real i sate ut La potion reste 
amere pour le monde du ci- 
nema. 

Ete 1912, a la campagne, pas 
tres loin de Paris, un vieil 
homme (Louis Ducreux), pein- 
tre de son etat, attend dans 
une grande maison vide la vi- 
site de sa famille. II y vit seul 
depuis des annees en compa- 
gnie dune sen/ante affec- 
tueuse et ronchon. Peintre 
academique. il connut son 
heure de gloire offlcielle; sa vie 
ressemble a sa peinture, sen- 
sible, delicate mais sans eclat. 
Son fils (Michel Aumont) est 
un employe modeste, sans ta- 
lent et sans ambition, qui a 




Tenue campagnarde 1912 



decu son pere. Le vieillard pre- 
fere sa fille (Sabine Azema), 
modiste, pleine de vie et de 
creativite, meme s'iI ne la 
comprend pas tout a fait. 

Ce film est magique. II nous 
entrafne dans un monde ou- 
blie. celui de la douceur de 
vivre. du temps qui secoule 
lentement au milieu des fleurs 
et des oiseaux, dune musique 
interieure qui conduit a la sere- 
nite. Cette nostalgie est parfois 
acide et teintee d'amertume. 
elle est lucide. Le bonheur est 
difficile a palper. encore plus a 
filmer. Tavemier a r6ussi cette 
gageure par petites touches 
impressionnistes. A chialer de 
bonheur. 

Diffusion le 28 a 21h sur 
C+ . 




curiosit6s : 



LA VIE DEVANT SOI 



Film de Moshe Mizrahi (1977) 
avec Simone Signoret, 
Claude Dauphin et Gene- 
vieve Fontanel 

Shalom. Madame Rosa, ex- 
prostituee, s'occupe des en- 
fants de ses collegues. L'age 
venant, il n'en reste qu'un : 
MOMO quelle a eleve comme 
son tils. Se sentant mourir, elle 
fait croire a son entourage 
quelle pari en Israel. Seul 
MOMO va I'accompagner pour 
son dernier voyage (a la cave). 
L'an prochain a Jerusalem, 
C'est pas le film du siecle dac- 
cord, mais c'est un havre 




demotion, de chaleur, de ten- 
dresse avec la Signoret (les 
plus belles rides du monde). 
Rare en ces temps sans pilie. 
Bandes de crocodiles, essuyez 
une larme pour une fois. 

Diffusion le 25 a 20h35 sur 
FR3. 



LA GRANDE VADROUILLE 

Film de Gerard Oury (1966) 
avec Bourvil et Louis de 
Funes. 

Premier film dune serie en 
hommage a nos chers dispa- 
rus. LA GRANDE VA- 
DROUILLE est un festival 
d'aventures croquignolesques, 
un concours de grimaces entre 
nos deux billes de clowns na- 
tionales. 

L' hlstoire. la petite et 
la grande, tout le monde s'en 
moque. je resume : trois bntan- 
niques (Cunningham, Sir Regi- 
nald el Mac Intosh) font du pa- 
rachutisme au-dessus de 
Paris Comme c'est interdil. le 
major Achbach, chef de la po- 
lice allemande lance ses 
seides a /eurs trousses. Pour t\j 
sen sortir, Mac Intosh fait ** 
apple (pardon appel) a Stanis- § 
las Lefort (Louis le funeste) et c 
Cunningham a Augustin Bou- ^ 
vef (Bourvil). A partir de la le 
scenanste accumule un Ham- 
mam, un side-car, des ton- 
neaux, des bonnes soeurs. 
des planeurs.... 

Franchement, apres la 253eme 
rediffusion, on se lasse. mais 
apres tout, si ga vous dit. . 

Diffusion le 25 a 20h35 sur 



Lundi 22 Avril 


20h30 C ♦ 


A BOUT DE SOUFFLE. MADE IN 




U.S.A. (dixit le litre) 


20h35 FR 3 


LA BARAKA (1982): dim (mama cous- 




cous) avec R. Hanin et M Villalonqa. 


20h35 TF 1 


LA GUERRE DES ABIMES (lilm abys- 
sal) 
FOLLE AMANDA: piece avec Line Re- 


20H35 A2 




naud 


22h20 TF1 


ETOILES ET TOILES (magazine du 




cine branche) 


23h00 FR 3 


THALASSA (magazine qui a le vent en 




poupe) 


Mardi 23 Avril 


20h30 C + 


FOOTBALL : Monaco-Nantes 


20H35 FR3 


LE CHAT COHNAIT L ASSASSIN (voir 




CURIOSITES) 


20H35 TF1 


EHIGMES DU BOUT OU MONDE 


20h35 A2 


MA FEMME SAPPELLE REVIENS 




(voir CURIOSITES) 


21h35 TF1 


CONTREENOUETE 


22h15 C + 


L HOMME DU CLAN(t974). film avec 




Lee Marvin el Richard Burton 


22h30 TF1 


TINTAMARTS (varietes) 


Mercredi 24 Avril 


20H30 TF1 


DALLAS 


20h35 FR3. 


CADENCE 3 


20h3S A2 . 


LES 5 DERNIERES MINUTES iTendres 




Pigeons 


21h00 C + . 


LE TEMPS ET LA REVANCHE 


21h30 TF1 . 


QUE LA FETE CONTINUE rf 2 


22h25 FR 3 . 


UN COLT POUR TROIS SALO- 




PARDSiweslern rmgard) avec R Welch 


22(135 TF1 . 


COTE D'AMOUR(la bourse qui rocke) 


22h40 C + . 


MORT DUN POURRI0977). lilm 




(polar) de G. Lautner avec Alain Delon 




et Ornella Mum 


Jeudi 25 Avril 


20h30 C + 


LA DIAGONALE DU FOUfvoir article)^ 


20h35 FR 3 


LA VIE DEVANT SOI (voir CURIOSI- 




TES) 


20KJ5 TF 1 


LE CANON PAISIBLE rf 3 


20h3S A2 


LA GRANDE VADROUILLE (voir 




CURIOSITES) 


21h30 TF 1 


INFOVISION question a domicile 


22M5 C + 


LES ANGES DU MAL(beurk) 


22h35 A2 


■ CARTE DE PRESSE : La lolie en douce 


23h05 TF 1 


JEANNE D'ARC 


Vendredi 26 Avril 


20h35 A2 


CHATEAUVALLON 


20h35 FR 3 


AGATHA CHRISTIE :Les Faussaires 


20h35 TF 1 


LE JEU DE LA VERITE Linda de Suza 


21h00 C + 


LES AS DOXFORD (voir CURIOSI- 




TES) 


21h35 A2 


APOSTROPHES :les intellecluels el la 




politique 


2lh35 FR 3 


MEDICALES : Alerte au SIDA 


211)50 TF1 


LAMES DE FOND avec Marie Dubois 


22h05 C * 


STRYKERfanttcipation sanglante) 


23h00 A2 


CHERCHEURS DOR (voir article) f_J 


Samedi 27 Avril 


201)35 TF1 


RHAPSODIE EN JAUNE : Serie noire 




chez les asiates 


20h35 A2 


CHAMPS ELY SEES 


20h35 FR3 


DISNEY CHANNEL 


221)10 TF1 


DROIT DE REPONSE 


22h15 A2 


LES ENFANTS DU ROCK : Tina Tur- 


22M5 FR3 


DYNASTIE 


22h55 C + 


UNE SI GENTILLE PETITE FILLE (fan- 




tastique gentillel) 


Dimanche 28 Avril 


20h35 A2 


LE GRAND RAID 


20h35 TF 1 


LA LIGNE DE DEMARCATION (lilm 




com memo) 


20h35 FR3 


LES CAMPS ET APRES rjournee de la 




Deportation 


21h00 C + 


UN DIMANCHE A LA CAMPAGNE 




(voir article) 


21t)35 A2 


SORTIE DE SECOURS : Turin 


22h30 FR 3 


LE TOMBEAU HINDOU 


23h30 C + 


LE TROISIEME HOMME (voir article 
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GO WEST 
chercheur d'or LJ 




Film d Edward Buzell (1940) 
avec les Marx Brothers. 

Les ann&es 30 aux Etats-Unis, 
cest misere et depression d'ou 
/'obsession du $ pour tout le 
monde. en particular pour 
Ouentin Quale (Groucho) qui 
part chercher fortune dans 
I'Ouest (Go West young man. 
go west). Cet aigrefm tombe 
sur les freres Panelto (devmez 
qui c'est) qui le depouillent 
complement. C'est Rusty Pa- 
netlo (Harpo) qui a le pou. 
aussi les indiens courent apres 
son scalp (d'ou /'expression : 
chercher des poux dans la lete 
a quelqu'un). Apres une scene 
de hold-up au pistolet a ral- 
longe (c'est plus fort que de 
jouer au bouchon) nos trois 
comperes jouent au petit che- 
minot 




Dun coup.dun seul je letends, 
je t'assure 

On prend les memes et on re- 
commence. Une histoire 
d'amour contrane par des dis- 
sensions familiales. trois fou- 
teurs de merde sans un nickel, 
des courses pour suites, un 
morceau de harpe, et tout finit 
bien pour les Marx, lis auront 
beaucoup d'enfants Un classi- 
que bien entendu. 
Diffusion le 26 a 23h00 sur 
A2. 




SF*" ECHEC ET MAT _ 
la diagonale du Fou \ 



Film de Richard Dembo avec 
Michel Plccoli, Alexandre Ar- 
batt, Liv Ullman, Leslie 
Caron, Daniel Olbrinsky et 
Michel Aumont. 

Attention TALENT a revendre, 
pour un premier long-metrage, 
ce Dembo a reuni un casting 
international E-LE-PHAN-TES- 
QUE. Deja il faut le faire. Mais 
un elephant ca trompe. alors 
quid de son savoir-faire. Pas 
de probleme de ce cdte-la. Le 
jeune Mammouth ecrase les 
prix : Prix Louis Delluc. Grand 
Prix de I'Academie Francaise, 
Cesar 84 de la meilleure pre- 
miere oeuvre et Oscar 84 du 
meilleur film etranger. Excusez 
du peu. S'iI ne reussit pas le 
grand chelem, c'est faute 
d'avoir envoye une copie au 
festival de coiffure de Roufla- 
quettes-ies-2-eglises ou il au- 
rait remporte la pellicule dor 

Geneve, 1983, finale du cham- 
pionnat mondial dechecs entre 
deux sovietiques. Dun cote, le 
tenant du litre, Akiva Liebsky, 
la soixantaine, invaincu depuis 
douze ans: de lautre le chal- 
lenger M. Fromm, la trentaine, 
ancien eleve de ce dernier, Au 
milieu 64 cases noires et blan- 
ches et une pendule. D'origine 
lithuanienne, Fromm est passe 
a I'Ouest (profitant dune ou- 



^ '\ 



veriure a I'anglaise) depuis 
cinq ans en laissant sa femme 
a Moscou. Completement pa- 
rano, il se croit persecute par 
le K.G.B- D'origine |uive. 
Liebsky est le representant of- 
ficiel de I'URSS, mais il est 
cardiaque. Tous les deux se 
connaissent bien et s'estiment 
mais I'enjeu les depasse. Les 
coups bas vont pleuvoir. Le 
duel tourne a la mise a mort, 
l-ace au toc-toc ou caraiaque 
etique, sans toque mats plem 
de tics, le parano authentique 
assene une tactique mastoc 
(et toe ! ) Cette histoire amo- 
rale a pour seule elhique le Se- 
tae de I'horloge. 
PS : II est pas necessaire d'ai- 
mer, ni meme de connaitre les 
echecs pour suivre le deroule- 
ment de Taction 
Diffusion le 25 a 20h30 sur 
C + 



Ne cherchez pas a compren- 
dre Ihistoire ce nest qu'une 




LE CHAT CONNA1T L'ASSAS 
SIN 

Film de Robert Benton 
(1976) avec Art Carney et 

Lily Tomlin 

<? 
La mere Margot a perdu son £ 
chat. Le retrouver. telle est la .£ 
mission du detective prive, Ira Q- 
Wells. Malgre rage de ses ar- 
leres, la replique d'Humpnrey 
Bogart (sourd. boiteux et gras 
du bide) se lance dans cette 
aventure palpitante. La plupart 
des gens qui s'occupent du 
matou finissent achassines. 



suite inmterrompue de coups 
de tneatre deconcertants. 
Dans cette comedie policiere 
originale, I'humour predomine. 
Lechez-vous les babmes, c'est 
potent 

Diffusion le 23 a 20h35 sur 
FR3. 



MA FEMME S'APPELLE RE- 
VIENS^ 

Film de Patrice Leconte 
(1982) avec Michel Blanc, 
Anemone, Xavier St-Macary, 
Pascale Rocard et Christo- 
phe Malavoy. 

Apres cinq ans de vie 
commune (crises de nerf et 
jeux de mains, jeux de vilains), 
la femme de Bernard (M. 



Blanc) sen va. Paume. aneanti 
il change de vie (changez de 
Kelton) et travaille a SOS me- 
decins, II porte secours a Na- 
dine (Anemone) qui. elle aussi. 
essuie un grand chagrin 
d'amour (c'est Kleenex qui es- 
suie le mieux). Nos deux sex- 
symboles vont passer une nuit 
ensemble. Bonjour laventure, 
preparez vos mouchoirs. 

Diffusion le 23 a 20h35 sur 



LES AS DOXFORD 

Rim (burlesque) de A. Goul- 
ding avec Stan Laurel et Oli- 
ver Hardy. 





Alio, maman Bobo 



En 1940. le couple vedette des 
annees 20 a pas mal vieilli. 
mais ils ont encore de beaux 
restes. Balayeurs de rue. ils 
font echouer lattaque dune 
banque (-c'est pas .ma faute. 
c'est lui. • non, c'est toi...). 
Pour les remercier, le directeur 
de la banque les envoie a Ox- 
ford pour y faire leurs etudes 
(Cambridge la echappe belle). 

Diffusion le 26 a 21h00 sur 



Suite de la page 1 



comme pour le texte Sans I'ajout 
de la cane 80 coionnes. on dispose 
d'un mode 32 ou 40 coionnes. 
Comme sur I'Amstrad, le texte et 
les graphiques haute resolution sont 
miscibles Par contre. on trouve 
des instructions ohginaies comme 
FILL (remplissage de formes), EL- 
LIPSE (vous voulez vraiment que je 
vous explique ?) ou POLY (trace de 
polygenes] Resolution - 256x192. 
pas revolutionnaire 
MUL$ est une instruction qui res- 
semble (on a du basic Tandy eile 
affiche x fois un caractere y Elle 
S'utilise avec PRINT ou PRINT AT. 
SHAPE, qui redefinit des caracteres 
ressemble encore une fois a de 
I'Amstrad. VPOKE et VDOKE placent 
des valeurs dans la memoire video : 
le second ressemble a de TOric 
SPRITE et MAG (magnification, qui 
signifie 'agrandissement') definis- 
sent des sprites : il y en a 32. mais 
malheureusement, ils ne peuvent 
avoir qu'une couleur chacun 



D'EINSTEIN AU GRAND COMPLET 



Allez, un peu dongmal qui fait 
baver SEP delinit le separateur de 
datas. Vous voulez mettre autre 
chose que des virgules dans les 
datas ? II suffit de decider que le 
separateur sera un point ou le signe 
egale ou une parenthese ou n'im- 
pone quoi. PSW (password) permet 
d'interdire I'acces d'un fichier sur 
disquette a quiconque ne possede 
pas le code HOLD est Tune des 
Instructions les plus etonnantes : 
une 'fenfctre* est definie dans un 
listing basic et I'on peut travailler el 



une honte ( Surtout sur un lecteur 3 
pouces, oil Ion peut aisemeni met- 
tre 500 Ko par face ' Par contre, la 
vitesse de cnargement est tres 
bonne : 30 Ko/seconde C'est parmi 
les plus rapides. Ceci dit. pour 
charger lentement avec un trois 
pouces, il faut vraiment le faire 
expres Oorc. pas d'expioit 

L'OEIL DE LA GAZELLE 

Continuons notre zoom arriere 
Apres avoir vu linteneur de la ma- 





ches ne font vraiment pas serieux 
De plus, chague appui sur une lou- 
che produit un "dzouing" deconcer- 
tant et tres enervant a la longue (a 
la courte aussi. d'ailieurs.) 

LE NID DE LA PIE 

Et le reste ? Tout ce qu il y a autour 
d'un ordinateur digne de ce nom ? 
Pour les peripheriques. pas de pro- 
blems : ! Einstem n est pas digne, il 
n'y a rien Encore que pour ceux 
qui bidouillent il y a un maximum 
de trous pour brancher tout ce qu'il 
faut. Suffit de le prendre ailleurs : 
un stylo optique Tartemoi. une im- 
primante Machin, un synthetiseur 
Yamamoto. un modem Tuyomou et 
tout baiqne 




232 

Autre probleme les logiciels 
prevus pour tourner en 80 coionnes 
ne tournent pas en 40 avec la prise 
peritei C'est d'autant plus bete 
qu'une instruction est pre'vue pour 
ga dans le basic ' 

En frangais. on peut trouver a 
I'heure actueiie ... rien Quatre softs 
devraient arriver d'ici peu En an- 
glais, il y a Wordstar (le traitement 
de texte te plus connu et I'un des 
moins bons). un BBC basic (inte- 
ressant. car celui-ci est i'un des 
plus structures), un logo, un dBASE 
II, plusieurs assembleurs desas- 
sembleurs et des gestionnaires de 
bureau. 

L'INDECISION DE LA POULE 

Voila. C'est un appareil qui) est 
tres bon et tres pas bon en meme 
temps. II ressemble. par sa confi- 
guration, a un Amstrad et il en a 
d'ailieurs a peu pres le prix : 7500 
francs pour I'Amstrad (avec lecteur 
de disquettes) et 7990 pour I'Eins- 



On dispose aussi de 160 caracteres 
graphiques predefine et ledefmissa- 
bles a partir du basic 
Cote musique, 5 instructions inte- 
ressantes et un gros haut-parleur 
reglable juste en face du clavier 
pour s'eclater les oreilles 
Traitement d'erreurs assez 
complet : ERL. ERR, ERRS . ca 
ressemble a de I'Apple. SWAP. 
C'est du TRS. BINS et HEXS . pres- 
que tous les micros I'ont : conver- 
sion en binaire. decimal et hexade- 
cimal. RENUM. AUTO et OEL 
servent a rSditer des listings. Pas 
original, mais tres pratique TIS est 
la variable qui correspond a I'hor- 
Idge en temps reel. Interessant. 
KEY redfitinit les touches de fonc- 
tion . c'est pas du Canon 7 



conserver ce 'bout' de listing pour, 
par exemple, le renumeroter. le de- 
placer en dfibut ou en tin du listing 
ou le 'merger* avec un autre pro- 
gramme. 

Et puis, il y a plein destructions 
pour les entrees-sorties. A quand 
un modem Einstein ? 
Ah, i'allais oubller : il n'y a pas de 
TRON (execution pas a pas d'un 
programme avec affichage des nu- 
meros de ligne). C'est bien embe- 

tent. 

LA MEMOIRE DE L'ELE- 
PHANT 

Ben non, justement Avec tout ca, 
sous basic il n'a que 43 Ko de Ram 
utilisateur C'est pas Inorme C'est 
meme pas enorme du tout. 
Et les disquettes ? 190 Ko par face. 



chine, jetons un coup d'oeil a rex- 
ten eur 

L'Einstein ressemble vaguement a 
un Apli apata a un Atapla apiti a un 
Apple aplati. Le lecteur de disquet- 
tes est place sur le cote gauche de 
la machine Le clavier (qwerty hurt 
touches de fonction) ressemble a 



A.o base n 

Pour les logiciels la question est 
plus complexe Peu. autant dire pas 
de logiciels de jeu . sinon ceux 
cites plus baut Mais moyennant 
I 'achat de la cane 80 coionnes citee 
plus 4iaut, mais moins haut que 
tout a I'heure. la compatibiiite avec 
le systeme CP/M est assume, et la, 
en principe, du logiciel il y en a 
plus que ce que vous pouvez en 
acbeter. 

Dommage tout de meme ; alors que 
le format des disquettes est le 
meme, la technique d'enregistre- 
ment differe de celle de I'Amstrad 



9-B , 6f'EN QUE 3E ?»' 





ces claviers mecaniques que Ton 
trouve sur les ZX 81 : pas beau, 
pas agreable et les caracteres gra- 
phiques sur la face avant des tou- 



Oonc, on ne peut pas beneficier de 
la logitheque CP/M de ce dernier, il 
faut se resoudre a passer par la 
transmission de donnees via la RS 



tein. L'Amstrad a lavantage de 
s'etre ton bien vendu et les logiciels 
sont et seront de plus en plus nom- 
breux. Le Basic de I'Amstrad est 
genial, ceiui de i' Einstein est nor- 
mal. Son moniteur et ses en- 
trees sorties semblent plus pertor- 
mants et la plupan de ses deiauts 
peuvent se cornger avec le temps. 
Malheureusement. vont-ils ? ■ 



Suite de la page 28 

va nous laisser moisir quelques 
temps en prison pour nous for- 
ger le caractere. La tirade a 
dure plus dun bon quart 
d'heure. et comme je n'ai pas 
encore pris la parole, |e me leve 
peniblement et je tape trois fois 
de la canne par terre pour mam- 
fester ma presence, 
Je m'adresse directement a 
Fidel Monastorio. et | ecarte Tra- 
molo et Jobard de mon rayon 
d'action 




- Dis-donc. petit gars. To vas 
pas nous bassiner longternps 
avec tes discours d'espingouin 
revolutionnaire. Jen ai connu 
d'autres avant toi dans le genre 
politico- raleurs Des inextingui- 
bles de la colere ! Des staliniens 
du verbe ! Faut pas croire que 
tu nous impressionnes avec tes 
moulinets de bras et tes fake- 
ments de sourcils I 

Les gardes se marrent. sans 
doute parce qu'ils n'ont pas I'ha- 
bitude de voir un grand pere en- 
gueuler leur patron Tout se 
passe comme prevu. et je conti- 
nue ma rouspetance en appro- 
chant doucement du bureau, la 
canne pointee vers Monastorio 

- Moi. la revolution, je la tais 
tous les matins devant un kir 
chez Dominique sans emmerder 
personne. Et crois-moi, j'ai re- 
construit le monde plus dune 
fois devant un ballon de blanc. 
Dune voix branlante et patrioti- 
que. j'entame le chant des parti- 
sans, ce qui ne laisse pas de 
surprendre mon auditoire 1 

Je me suis encore avance im- 
perceptiblement. et j'estime que 
cette fois c'est le moment d'y 
aller Clic J'appuie sur le pom- 
meau de ma canne. et Monasto- 
rio s'effondre, foudroye par une 
flechette Tse-Tse !! 

(a sulvre...) 



^ 



M.S.X. 

LE STANDARD 

MICRO 



en PROMOTION 

DANS LES BOUTIQUES 

MICRO DE PARIS 




SANYO PHC 28 MSX 
2 295 F TTC 

Pack 3 Logiciels : 250 F TTC 

- 1 Arcade 

- 1 Aventure 

- 1 Budg. Famil. 



ar 



Ensemble I, comprenam : 

- 1 PHC 28 SANYO MSX 

- 1 Lecteur K7 Prog. 

- 1 Pack 3 Logiciels 

2 790 F TTC 

Ensemble 2, comprenant : Ensemble 3, comprenant : 

- 1 PHC 28 SANYO MSX - I PHC 28 SANYO MSX 

- 1 Lecteur K7 Prog. - 1 Lecteur K7 Prog. 

- I Moniteur Monochrome - 1 Moniteur Couleur 

+ 1 Pack 3 Logiciels Gratuit + 1 Pack 3 Logiciels Gratuit 

3 750 F TTC 5 195 F TTC 

ET BIEN SUR, tous les peripheriques, accessoires, logiciels, 
livres sur la revelation M.S.X. 



SANYO 16 BITS 

le 

PROFESSIONNEL 

MBC 550 

Azerty - 128 K RAM 

1 Drive 160 K - MS DOS 
1 Moniteur Monochrome 

8 423 F H.T. 
9 990 F TTC 

MBC 555-2 

Azerty - 128 K RAM 

2 Drive 360 K - MS DOS 
1 Moniteur Monochrome 

11 796 F H.T. 
13 990 F TTC 

EN CADEAU, AU CHOIX : 

1 Programme Traitement de Texte FRANCE TEXTE 

ou 1 Tableur Electronique UN1CALC 16 

LES PERIPHERIQUES : 

Moniteur Couleur CRT 50 3 490 F H.T. 

Imprimantes : 

80 col. 100 cps 4 390 F H.T. 

132 col. 125 cps 8 990 F H.T. 

Mach. Ecr. Interf. 20 cps 4 390 F H.T. 




ON SE DEPECHE... CELA NE DURERA QUE LE MOIS D'AVRIL... SI IL Y EN A ASSEZ ! 



VTR Micro Nord 

54, Rue Ramey — 75018 PARIS 
Tel. : 252.87.97 



CREDIT 

PRETROFIGAZ 

TOTAL ou DIFFERE 



VTR Micro Sud 

105, Boulevard Jourdan — 75014 PARIS 
Tel. : 545.38.96 



EsT-<£ que stous iTes) 

un coh ?; 




eA&v-i 



la page pedagogique 



la page pedago~ 



Mr Denis OLIVIER nous invite, a travers les diverses options de son programme, a la decouverte des principales caracteristiques des mineraux. 

/^OftsiEip otiMiee, vous wez 

is 



Mode.demploi: 

Ce programme, particullerement destine aux amateurs de mine- 

ralogie (science traitant des mineraux) peut etre tacilement 

adapte a d'autres disciplines (sciences naturelles par exemple). 

Exempte d utilisation 

Option B: Recherche d un mineral 



NOM DU MINERAL DIAMANT 



Durete: 10 

Trait: 12 

Solubillte: 4 

Eclat: 2 

Oensite: 3.3 

L appui sur la barre d'espace renvoie au menu principal. 




-)£ vpws At iVetf^ 
enTEHtu ! t-e$ 

DlAMAniTS «WT 
0ONC MOl'Hi E-pncACBl 

Que tfiS BeH/t-Ei <?iijs!y 



ANALYS sur MSX 



CARACTERES GRAPH I SUE F 
_•> -> GRPH-- 

-> GRPH*SHIFT»I 

_V ~> ORPH.SH1FIM o> 



10 CLS 

ZO CLEAR 1O0 

30 GOT 02 10 

SO 'Copyright 19B4 : Dinn OLIVIER 

130 REM 

140 DEFINT A-N 
130 REM 

160 A6-CHR4.ILB0001 10001 •CHRt.1l.B01 1 

11110) •CHB»IIB0I0C'I1101-CHR«(IEI110 

1 1 1 1 1 1 • CHRXIBI ] 1 1 1 1 1 I I •CHR*ifcB011 

1HIOHCHB»IH01I111101*CHR»1L1000 

11000) 

170 B9-CHR4 1I.B000 1 1000> ♦CHR»(LB011 

11110l'CHR»lllO10OlllOJ -CHMILBI 10 

1 11 111 .CHR4H.B1 1 1 11 1 11 • •CHWilBCll 

1 I 1 101 •CHRRII.BOl 1 I 1 I 101 + CHRRII.B0O0 

11000) 

ISO BPRITEfHD-AR 

190 SPRITE" 12) -B4 

200 RETURN 

210 REM INITIALISATION ECRAN - 

220 LOCATB0,O,0:CL«:COL0R15,4,7:KE 

YOFF: SCREEN O, ,1 

230 PRINTTA1U3)* MBX BASIC 

240 PRINT:PR1NTTAB(13) 'VERSION 1.0 



25© PRINT*_M_W_M_M_M_H_W_W_W_W_W_W 
J*_W_H_«_M_U_y_M_U_W_U_W_U_U_M_W_W 
_M_«_W_H_W_H_l*_ W ' 

2*0 PRIN7!PRINT:PRINT:PRINT:PRINT: 
PHI NT 

270 RRINTTABI10I '_U MSX SYSTEMSOFT 
_«■ 

2«o printiprint!PRInt:print:print: 

PRINT: PRINT! PRINT: PRINT *_M_W_M_*<_*) 
_MJI_l»_W_M_W_y_M_U_M_H_W_W_M_M_W_W 
_M_M_W_W_U_U_«_H_N_M_W_M _M_W_H * 
2*0 PRINTTAI13) 'Ptraannal Csf*put»r 

Bt«n««rd MBX* 

300 pori-ito200o:ncxti 

310 REM 

320 REM TITRE DE PRESENTATION 



670 PBET123 

eeo pseti3o 

890 PSET (36 
9O0 PSET (42 
910 PSET(4B 
920 P6ETI34 
930 PSET I 60 
940 PSET I 64 
930 PSET I 72 
960 PSETI7B 
970 PSEFilll 
980 PSET (90 
990 PSET 196 

000 PSET<1< 

010 CLOSE 

020 A»-INKEVi 

030 Y"Y»1 

040 PUT SPRITE 1 



REM 

COLORO, 1, l:SCREEN2,2:N-2 

F0RI-IT079 

R-RND 1 1 1*144! E-RND 1 1 > 4236 

PSET IE, R> ,11 

NEXT I 

GOSUB 130 

OPEN'GRP: *FOROUTPUTAS"l 

LINE 10, 1431- 1234, 143) ,3 

LINE 10, 14*1 -123*, 1461 ,3 

LI NE (0.1481-1 236 , 1 48 ) ,3 
236, 131) ,3 
236 ,134) ,3 
236 ,1361,3 
236, 163) ,3 
236 ,1691,3 
236 ,1761,3 
236, 184) ,3 
236, 191) ,3 



230 a«-inkey«:loci 
■-thenn-1 1 goto 123 

GOTO) 240 

240 IFA«-'A-ORAB- 
10 

230 IFA4--B-0RAB- 
10 

260 IFAS--C0RAS- 
320 
270 IFA*S--D"ORA»« 
2,l:CL5:END 
280 1FA*-'E"0RA4- 



INE (' 



1511 



L1NEI0, 138 
LINE IO, 163 
LINE 10, 169 
L I NE ( , 1 76 
L I NE < , 1 84 
LINE 10, i9i: 
F0RI-1T060 
R-RND1 1 l»30:0-RND 



INEUO 



330 LINE! 100*1 



, 14 



560 ► 

570 I 

Hfl i. 

590 I 



INEI30.60) -140,60) , 
INE120.90I -130,90) , 
1NE140.901 - 130,90) 
[NE(20,70t- 120,90) 
INE130,701- 130,901 
INE i 30,85) - 140,83) 



(40,90) 
130,90) 
130,60) 
130,701 
160,60) 



630 LINE 1 40,851 

640 LINE I 30.B5I 

630 LINEI20.70) 

660 L1NEI40.60) 

670 LINE (60, 60) - 

680 DRAU-RIOF1OU1OR1OD3OLI0H1OD1OL 

690 I 

700 I 

eio- 

710 LINEI140, 60) - 1140,60) ,N 

720 DRAU-R10D20R20D10L30U30" 

730 LINE1180, 60) - (180,601 ,N 

740 DRAWR10D5R10U5R10D20L10D10L10 

U10L10U20- 

7SO LINE(230, 601 - (230,401 ,N 

760 DRAWR20D30L30U30R10- 

770 LINE 1230, 701 - (230,70) ,N 

780 LINEI220.B0I - (240,80) ,N 

790 COLOR 9, ,1 

800 COLORS,,! 

810 PSET 163,301 , 1 : PRINT* 1, -ANALYSE 

S MINERALES* 

820 C0LOR13, , 1 

830 PSET C 39, 1B0) , 1:PR1NTB1 , -Tap*- 

840 COLOR 7, ,1 

830 PSETI13.31 , l:PRINT»l, ■ I • 

B60 PSET120.31 , I IPRINTB1, -C* 



PRINT 
PRINT 
PRINT 



160O LOCATE 11,22: INPUT'DENSITE 

EN1 

1610 CLS 

1620 SCREEH0:C0LOR2,l 

1630 L0CATE2, l:PRINT*opt Ion B 

1440 locatei,3:print- 



1630 L0CATE11,4:PRINT*DURETE OU NI 

NEPAL" 

1460 L0CATE14, lOiPRINT'DE 1 A 10 * 

1670 PR INT: PR INT: PR I NT: PR INT: PR INT 

: PRINT: PRINT SPRINT 

1 680 PRINT* _W_W_W_W_W_W_W_W_H_W_U_ 



2290 L0CATE13.22: I NPUT ■ DENSI TE *|l 

230O GOT02430 

2310 REM 

2320 REM TRAITEMENT FAUTE6 

2330 REM 

2340 CLS:C0L0R3. 1 

2330 L0CATE4, 1 : PR I NT -Anal ya'progri 

■>■• -i r,»'«l og I qu. 1 

2360 L0CATE1,2:PRINT* 



VOUS AVE2 FAI' 



,124*30*C0SC 



030 Y-Ytl 

O60 PUT SPRITE 2, IY 

O) 1 ,9,2 

070 Y"Y«1 

080 Y»Y*1 

O90 IFAR< >* -THEN10 

01 1 30 

it'll CLOSE: CLS 

,10 REM 

.20 REM MEN 

30 REM 

40 SCREEN0:COL0R13, 1 

30 L0CATE2,2:PRINT* J 



I L0CATE14,22:INPUT-DURETE"1D 

I IFD ■■- I ANDO < - 10 THEN 1 7 JO 

I 1FDO0RDM0THENG0SUB2340 

I GOTO 1620 

) F0RI-lTO300:NEXT 

I CLS:C0L0R2, 1 

I L0CATE2, i:PRINT-optlo» B 



:lseclear:go 



_w_w_w_w_« 



■ 1' 
1760 locatei,3:print-_ 

1770 l0cate12,4:print* 

ERAL* 
1780 



oordonnees 

int:print:prii 

2390 PRINT- 

RECOHMENCER 
2400 PRINT: PR 



AR-INKEYR 

IFA40- 'THEN2410ELSERETURN 
30 CLS :C0L0R2,i: LOCATES, 1 : PRINT- 



160 L0CATE13,6:PR 

170 L0CATE6, 10:PR 

■un mineral:* 1 

180 LOCATE6, i: 
N MINERAL. . :B 
190 L0CATE6, 1' 

MINERAI . :c 

200 LOCATE6, 1. 

:d 

210 L0CATE6, II 



220 LOCATE2.2 



390ELSE1220 
290 REM 

3O0 REM 



310 REM 

320 CLS 

330 C0L0R2, 1 

340 LOCATE 3,0:PR 

350 LOCATE 0,2:PR 



360 L0CATE9,3!PR 

dEnsite-:PRINt:pr; 

INPUT'POIDS Di 
ERAL * I X 

IFX-OTHENGOSLi: 
390 CLS:G0T01330 
40O PRINT:PRINT-. 



■RECHERCHE 0- 
-DENSITE D'UN 



IfJOO 

1*10 
IS20 

IS30 
1610 

leao 
1 170 



LOCATE 14, 6: 
L0CATE14.7! 
LOCATE 14 , S; 
L0CATE14 



IPRIi 



L0CATE14, 
LOCATE 14, 
LOCATE 14, 
LOCATE14, 
L0CATE14, 
) LOCATE 1 4, 

> LOCATE14, 

> LOCATE 1' 



BLANC 

ORIS 

NOM 

JAUNE 
VERT 

■RUN 

BLEU 

ROUGE 
ORANGE 
VIOLET 
ROM 



l:PRINT*AUTRE 



:PRINTA» 

3110 1FSYR< >NM*ANDA*ONH«THENL0CAT 

E13, 17;PRINT-AUCUN* 

3120 BEEP:L0CATE13, 19:PRINTGP« 

3130 A4-INKEYR 

3140 LOCATE36.23.N 

3130 if ar---thenn-i:g0t03130elsel 

ocateo, 0,0: beep: run1 140 

3160 beep:locatei6, i?:print-non fi 

CHE ':00T0313O 

3170 RETURN 
3180 REM 

3190 REM DATA 

3200 REM 

3210 DATA 1 .ARGENT, 2. 7,2,4, 1, IO. 3, 

ELEMENT NATIF.AUCUN 

3220 DATA 2, ARSENIC, 3. 5, 3, 2, 1,3.7, 

ELEMENT NATIF.AUCUN 

3230 DATA 3.0R, 2. 7,4,4, 1, 19.3, ELEM 

ENT NATIF.AUCUN 

3240 DATA 4, DIAMANT, IO, 12,4, 2,3.32 

.ELEMENT NATIF.AUCUN 

3230 DATA 3, FER, 4. 3. 2, 6, 1,7. 3, ELEM 



TIF, A 



: un 



I LOCATE! .3:1 



30 L0CATE13,4:PRINT*N0N DU MINER 

t: print: PR int: print 

60 PRINT- No* ■in*rAl:-:PRINT 

70 PR IN 

80 PR IN 

90 FOR 

00 READXX , A*. DD , TT , SS , EE , WW , OP* , 



2310 IF DD<ID*.S) AND DDXD-.S) A 

D TT*T AND SS-S AND EE-E AND WW< I 

*.3)AND UWXU-.3ITHEN2340 

2320 NEXTI:RE5T0RE 

2330 BEEP:L0CATE17. )2:print-non F 

CNE . . . *:S0T03130 

2340 beep:locatei6. io:printa» 
233o beep:locatei*,12:printr« 

2360 BEEP:L0CATE16. 14:PRINT op* 



■THENBEEP 

•THENBEEP 
■THENBEEP 



RUNl 

COLO 

RUN3 



1920 LOCATE13, 22: INPUT-TRAIT "IT 
1930 IFT>-1ANDT<-14THEN I960 
1940 IFT< 10RTM4THENO0SUB2340 
1930 GOT01740 
1940 FORI-lTO4O0:NEXT:CLS:C0LOR2,l 



1970 LOCATE2 
1980 L0CATE1 



t-calcul de la 
t:print:print 

2340ELSE1400 



1990 LOCATES 

MINERAL* 
20O0 LOCATE 6 
RISUE :i- 
201O L0CATE6 
UE :2* 
2020 L0CATE6 

isue :s 

2030 LOCATES 

!4* 
2040 L0CATE4 

:3* 

2O30 LOCATE 6 



2600 REM 

2610 CLS 

2620 COLOR2, 1 

2630 PRINT- opt 

g'un *>IA*ral* 

2440 print:prii 



3: pr i i 



4:PRINT*S0LUB1LITE DU 

,CIDE CHLORYD 
ACIDE NITR18 
ACIOE SULFUR 

NSOLUBLE 
BR4J 

TOUS AC I DES 
: PRINT 



:PRI 


TA 





PR 


NT- 


1 


PR 


NT" 


2 


PR 


NT" 


3 


PR 


NT- 


4 


PR 




NT:!-' 


INT 



2430 out i.hab, 12: poke khfcab.233:p 

rint: input-rentre2 le mineral'inm* 

:print:print 

2660 if ni"*-- - or hm >"" then 261 

2470 PRINT'Dur*ta 

26B0 PRINT'Tralt 

2690 PRINT-aolubl III 

2700 PRINT'Eclat 

2710 PRINT-Dvnalt* 

2720 PRINT-8ynonyi*4 

2730 PRINT-Group* 

2740 F0RI-1T0 38 

2730 READ8, A«, DU , TR , 50 , EC , DE , OP* , S 



3260 DATA 6, PLATINE, 4. 23, 2, 4, 1 , 16. 

3, ELEMENT NATIF.AUCUN 

3270 DATA 7, GRAPHITE, 1.3,3,4,2,2.3 

.ELEMENT NATIF , AUCUNCUN 

3280 DATA B,S0UFRE,2, 1 , 4, 2, 2.03, EL 

EMENT NATIF.AUCUN 

3290 DATA 9,CUIVRE,2.73,6,6, 1,8.9, 

ELEMENT NATIF.AUCUN 

3300 DATA 10, AR8ENTITE, 2. 25, 2, 2, 1 , 

7.2, SULFURE , ARGYROSE 

3310 DATA 11,CHALC0CITE,2.73,3,2, 1 

,?. 3, SULFURE. PVRITE DE CUIVRE 

3320 DATA 12, ERUSBESCITE , 3. 2, 2, 1 , 3 

.2 , SULFURE, BORN1TE 

3330 DATA 13, GALENE , 2. A, 2, 2, 1 , 7. 5, 

SULFURE, AUC UN 

3340 DATA 14, SPHALERITE, 3. 73,9, I ,2 

,4, SULFURE .BLENDE 

3330 DATA 13,CHALCOPYRITE,3.73,3,4 

, 1,4. 2, SULFURE, PYRITE CUIVREUSE 

33AO DATA 14, OREENOCKITE, 3. 23,4, I , 

2,4. 93, SULFURE, AUC UN 

3370 DATA 1 7, PYRRHOT I TE , 4, 3, 1 , 1 , 4. 

43, SULFURE, PYRITC MAONCTISUC 

33RO DATA 18.NICKELINC, 3. 23,4,2,1, 

7. SO, SULFURE, N1CC0C1TE 

3390 DATA 19, MILLERITE , 3, 3, 2, 1 ,3.4 

3, SULFURE, SULFURE CLAIR 

3400 DATA 20,CINAW>E, 2- SO, 8, 4, 2,8. 

1, SULFURE, AUC UN 

3410 DATA 21,0RPIMCNT,1.7S,4,2 

.SULFURE, AUC UN 

3420 DATA 22,STIBINE,2,2,2,1,4 

SULFURE , ANT IMONI TE 

i DATA 23,«1SMUTHINITE,2,2,2 
.SULFURE, BISMUTH INC 
DATA 24,PYRITE,4.23,4.2, 1 



3430 



3440 



O, SULFURE, OR DES FOUS 



3470 
4. 90 
34B0 



1 , 4 . 73 , SULFURE , AUC UN 



'_W_U_U_U_U_l 



410 INPUT'POIDS DU MINERAL DANS L 

EAU -IE 

420 PRINT: IFE-XTHENG0SUB2340EL5E1 



,22: INPUT-SOLUBIl 



IFS>»1AN0B<»4THEN2130 
IF6< lORS>4THENG0BUB2340 

GO TO 19*0 

fori-ito40o:ncxT:Cls: 

LOCATES, l:PN!NT-optli 



2 100 
2110 
2120 
2130 
2140 



2130 locate: 



70 ( 



T: BEEP:! 



INT'Dam 



480 PRINT 

490 BEEP:PRINT-D*F>ait* *< 

* IUSING-HMH. »»• IU 

300 G0TO3130 

310 REN 

320 REN OPTION B 

330 REM 

340 C0L0R2, l: EC REE NO 

550 CLS : COLOR l.o 

560 LOCATEI , 1 I PRINT-Opt >, 

370 L0CATE2, DPRINT' 



2160 LOCATE: 

ERAL* 

2170 LOCATE; 



2190 LOCATE! ,20 



2760 
27 70 
2780 
2790 
2800 

Mio 

2620 
2830 
2840 
2850 
2860 

M7C 

2880 
28O0 
2°00 

2" 10 

s*aa 

2930 



,4:PRINT'ECLAT DU HIN 
,lZtPRINT*MCTALLIBUE 



IFA4-NMSTHENG0T02B00 
IFSYR-NMRTHENG0T02B00 
NEXT!: RESTORE 
G0SUB3160 

beep: loci 

TR-lTHENZi 

TR-2THENZ' 

TR-3THEN2' 

TR-4THENZ' 

TR-5THENZ- 

TR-6THENZ 

TR-7T-'ENZI 

TR-BTHENZV 

TR-9THENZI 

TR-10THEN21 
TO-! 1THEN21 
TR-12THEN21 
TR-13THEN21 
TR-OTHENZI 
EEP: LOCATE 
FS0-1THENOW*' 



21BO L0CATE11, lS:PRINT*NON MCTALL I 



2200 
2210 
2220 
2230 
2240 
2250 



580 l0cate13,6:print*dens!' 

neral*1033 print:print:prii 

:print:print: 

390 l0cate1,15:print*_*)_w_» 



.*)_*I_U_U_W_W_W_M _*<_»<_«• 
LOCATE 13, 22: INPUT -ECLAT - j E 
1FE>-1ANDE<-2THCN2240 
IFE >20RE< 1 THENGOSUD2340 
G0T02130 
CLS:C0L0R2, I 
LOCATES, l:PRINT*Optlon b n 

i* 4'un RlnRPRl 1 
LOCATf 1,3: PRINT" 



3020 
3030 BEEP 

3040 
3050 



2270 LOCATE10,9:PRII 

I NEPAL" 

2280 L0CATE1, 13!PR1I 



ITE DU I 



3O60 
3070 

1080 
3090 



'S0-2THENBW*' 



SU-3THEN0U6 



SO- ATHENS*)*' 
S0-5THENSW4- • EAU 



■6 THE NBW«' 
•OTHENSWA: 
LOCATE 



ORIS- 
NOIR- 
JAUNE* 
VERT* 
8RUN* 
BLEU- 
ROUGE* 



35 JO 
5.00 
3540 



* ROSE * 

-1NC0L0RE* 

•INDEFINIE* 

INCONNU* 

91PRINTZ* 

-ACIDE CHLORYDR 



DATA 25,C0*ALT1TE,3.30,2,4, 

SULFURE , COBALT INE 

DATA 26,LOLLINGITI.3.23,2,; 

.SULFURE, AUCUN 

DATA 27,MARCASITE,6.2S,3,2 I 

SULFURE, PYRITE BLANCHE 

DATA 28,AR6ENOPYRITE.3.73, 

OS, SULFURE, MISP1CKEL 

DATA 29, MOLYBDENITE, 1.23, 2. 2, 



5.0 



DATA 30,SKUTTERUDITE,S.7S, 

40 , SULFURE , AUC UN 

DATA 31 .KERMESITE, I . 23,8,2, 2, 

SULFURE, AUC UN 

DATA 32,MENEDHINITE,2.S0,2,2, 

.SULFURE, AUC UN 

DATA 33, SIE0ENITE.4. 83,2,2,1, 

SULFURE, AUC UN 

DATA 3S.DYSCRASITE.3. 73,2,0, I 



, 9. 60, SULFURE, AUC UN 

3550 DATA 36,EHERAUDE,B, I 



,2,2.70 



ICATES, BERT! 



!,9, 1,4,2,4.00,0 



DATA S7.SAPHI 

CORINDON 

DATA 38, PUBIS, 9, 1,4, 2,4.00, OX 

ORINDON 

DATA 39, TOPAZE.B, 1,4, 2,3.33, N 

LICATE, AUCUN 



-ACIDE SULFURIH 



-INSOLUBLE- 



•TOUS ACIDES- 
'INCONNUE- 
lliPRINTBWR 
lTHENTRER-'NETALLieUE' 

2THENTRE9-*N0N METALLIBU 



3300 


REN 












3000 


CLS 
L0CATE4, 1 








•lya/p 


























3620 


LOCATE 1,3 


:PR 


N 












, 8 : PR I 




3630 


COLOR 2, 1 


:loca 


E 


T-C. 


prograiH* art 


Inl 


•Ul 


MINERAUX pa 


rcl* 
11 lo 


"" pD " r 


"' 




ou 


au»l 


bl.n 


U UlNlHlp 


« 


t«s,arbr*a,pap 


Olr • 




. 


■ft 


■od. R 


iUK 


ul* 


C»la tit 












3640 


LOCATE 0, 


14: 


R 


NT 


Indlapansab 

















■EC-0TNENTRE4-- INCONNU" 



p :L0CATE15, 13 

■:locateis, is 

l-NMRTHENBEEP 



PNINTTRE* 
PRINTDE 

locateis.i: 



■SY4-NM4TMENBEEP: LOCATE 13, 



3650 GOTO 3130 



la page pedagogique 



la page pedago 



la page pedagogique 



la page pedago~ 



Formation a I'assembleur 



COURS D'ASSEMBLEUR 



Deia des mois que vous plan- 
chez. les uns grace au cours 
pratique, les autres sur les 
connaissances plulot theonques 
(et reihonques ?) de linformali- 
que en general et de la pro 
grammation en assembleur en 
particular 

Pour cette semaine un grand 
mouvement de reflexion du cole 
du 6809 du T07. Mais les tana- 
tiques du 6510 du Commodore 
ne perdent nen pour attendre : 
la semaine prochaine sera pour 



Deputs le debut nous avons eu 

les cours suivants : 

No 55 — > ZX81 

No 56 - -> ZX81 

No 57 --> ORIC 1. ATMOS 



No58- 


••> APPLE 


No59- 


--> T07. T07 70 


NO60- 


■■> COMMODORE 64 


No 61 - 


••> zxei 


No62- 


->ORIC 1. ATMOS 


No63- 


■■> APPLE 


No64- 


--> T07, T07 70 


No65- 


-> COMMODORE 64 


No 66 - 


•>ZX81 


No67- 


->ORIC 1. ATMOS 


No68- 


-> APPLE 


No69- 


••> T07. T07 70 


No 70- 


-■> COMMODORE 64 


N0 71 ■ 


->ZX81 


No 72 - 


•■> ORIC 1. ATMOS 


No 73 ■ 


--> APPLE 


No 74 • 


■■> T07. T07 70 


No76- 


-■> COMMODORE 64 


N0 76- 


•■> ZX81 


N0 77- 


-> ORIC 1. ATMOS 


No 78- 


--> APPLE 
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Cette methode dadressage se 
Irouve limitee sur certains micro- 
processeurs (6502 par exemple) 
par le fait que loperande ne 
peut se composer que dun seul 
octet Amsi lorsque Ion desire 
utiliser ce mode on est oblige de 
Iravailler sur un ou deux octets 
de la page zero. 

Vous pourrez constater que sur 
le Commodore 64 (qui tourne 
sur un derive du 6502. le 6510) 
ce mode d adressage est theon- 
quemenl mutilisable puisqu un 
seul octet est libre en page zero 
et que Ion ne peut done pas 
adresser au-dela de cette page 
zero avec un seul octet. Cette 
petite anectode vous montre a 
quel point la mise au point d un 
micro-ordinateur peu! etre 
complexe plusieurs concep- 
teurs travaillent de front pour 
mener a bien cette entrepnse. 
mais au bout du compte le pro- 
dun soutfre toujours de defauls 
plus ou moins genants (rappe- 
lez-vous la Rom de I'Oric et de 
I'Atrnos qui ne sont jamais sor- 
ties sans bugs) 

Mais revenons a nos problemes 
dadressage et de gestion des 
COP. Nous nous retrouvons 
maintenant au stade de la syn- 
thase des differents elements 
que nous venons d'etudier. En 
eftet. les deux categories 
dadressage que nous n'avons 
pas vues dans le detail sont in- 
divisibles. 

a L adressage relatif se realise 
en binaire signe iselon la regie 
du complement a deux) el par 
rapport au contenu du PC. Nous 
pouvons resumer ce mode par 
i'operation suivante : 



adresse = adresse + operande 4. R = 1 indexation I 

Comme nous sommmes en bi- 
naire signe. (addition peut deve- 
nir une soustraction si le bit de 
poids >ort est a un Pour la ma 
jorite des micro- processeurs huit 
bits, loperande sera code sur 
huit bits, mais il est parfaitemeni 
envisageable de travailler sur 
seize bits. 



simplement suf ce micro etaient 
particuiierement reduites (pas de 
registres d'index) la gestion de 
tables de donnees impliquait la 
simulation dun registre d index. 
performance assez difficile a 
realiser Heureusement. de nos 
jours ce genie d'exerctces de 
style nest plus de pratique cou- 
ranle mais plutdt a ranger dans 
les exercices d ecole 

Nous allons maintenant resumer 
lensemble des connaissances 
dont nous venons de taire 'e 
tour concernant la gestion des 
COP et des operandes asso- 
cies Lorsque le micro-proces- 
seur arrive a la nouveiie instruc- 
tion a executer. lanalyse qu il 
effeclue se situe au niveau de la 
forme de Instruction (COP et 
operande). les differents modes 
dadressage etant alors recon- 
nus : 

a. COP. i ; adressage immediat 

b. COP. adresse : adressage re- 
latif ou adressage absolu simple 
c COP. R. I. adresse : plusieurs 
cas se presentent alors : 

1. R = pas dindexation. I = 
pas d'mdirection 

2. R = pas dindexation l ■ 1 
indirection 

3. R 



seur lors de lanalyse des ins- 
tructions A parlir de la nous 
allons pouvoir generaliser en- 
core' plus noire raisonnement. 

Nous avons vu jusqu'a present 
des elements plus ou moins 
epars dun ordinateur. Petit a 
petit nous les rassemblons pour 
aboutir a un concept d ordina- 
teur dans lequel nous aurons 
range lensemble des connais- 
sances que nous avons acqui- 
ses au cours de ces semames 
passees. 

Essayons-nous a un test de ce 
concept, tel que nous pouvons 
l organiser au stade actuel de 
notre savoir. Nous regardons un 
ordinateur et que voyons-nous 9 
D'apres ce que nous avons etu- 
die precedemment. cette ma- 
chine est composee dun en- 
semble de boites . Essayons. a 
la lumiere de notre savoir re- 
cemment acquis, d'organiser 
sous une forme hierarchisee les 
relations et I'interdependance 
entre ces differ en tes boites. 
Nous allons representor ces re- 
lations sous la forme dun arbre. 
non pas un chene ou un sapm. 
mais une arborescence mathe- 
matique. 



- 1 indexation. I = pas HIERARCHISATION 
irection DES "BOITES"' ▼ 
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b L adressage immediat ne fail 
appel (comme son nom lindi- 
que) a aucune manipulation par- 
ticuliere. L operation qui S'effec- 
tue automatiquement consiste 
simplement a mcrementer le PC 
losque le COP rencontre indique 
un adressage de ce type 

Vous pouvez trouver qui! esl 
excessif de disposer d autant de 
modes dadressage mais vous 
vous rendrez rapidement 
compte a 1 utilisation que rien 
n'est superflu. Pour vous donner 
un ordre de grandeur histonque. 
le F8 de Fairchild est lun des 
premiers micro-processeurs huit 
bits du marche (1! a ete mis au 
point aux alentours de 1970) Le 
seul mode d adressage disponi- 
ble sur ce micro elait Cadres- 
sage indirect implicite (par oppo- 
sition a Cmdirect mdexe) Le 
nombre d'operations realisables 



rection 

Cet ensemble de possibiliies 
conduit a creer un algonthme de 
reconnaissance des differents 
types d instructions et a leur trai- 
tement specif ique Une vision 
simplifies de celui-ci ressemble- 
rait a ce qui suit. 

ALGORtTHME DE TRAITE- 
MENT DES INSTRUCTION EN 
FONCTION DE L ADRESSAGE 

▼ 



Nous avons sur cette represen- 
tation une idee de ce qui se de- 
route au niveau interne de la 
machine, dun point de vue ma- 
te-riel. Reste a connaitre les rela- 
tions entre logiciel et materiel 
(hardware et software dans la 
(erminologie anglaise) dune part 
et les relations entre I ordinateur 
lui-meme et son environnerhent 
(peripheriques par exemple) 
Ces relations ne suivent pas 
exactement une dichotomie ma- 
nicheenne : nous n'avons pas (a 




Cet algorithme nest pas univer- 
set, d autres formes existent 
pour aboutir au meme resultat 
Toujours est-il qui I doit vous 
permettre de saisir le mode de 
fonctionnement du micrc-proces- 



I'interieur d'un ordinateur) d'un 
cdte les bouts de circuits elec- 
troniques et de I autre le soft. 
Non, un savant melange des 
deux permet au tout de fonction- 
ner. 



L'ASSEMBLEUR PRATIQUE 
Langage machine... sur TO 7 



La pile U n a sans doute plus ae 
secret pour vous, toutefois il est 
bon de preciser que I octet du 
debut de pile (dans notre exem- 
ple $ 7FFF) ne sert qua situer 
cette pile et ne contient done 
aucune valeur. Lempilage en 
lui-meme. s'etfectue a partir de 
I'octet immediatement infeneur, 
soil en S 7FFE.Nous pouvions 
tout aussi bien dans notre 
exemple, utiliser la pile systeme 
S. elle est similaire a la pile U 
avec toutefois deux reserves: il 
taut avoir present a lesprit que 
la pile S est utilisee d ordinaire 
par le systeme, d'ou son nom. Il 
est done prudent, apres usage, 
de la remettre dans son etat 
d'origine; en brel, de depiler 
toutes les valeurs dont on s est 
servi De plus, la pile systeme 
est situee ires precisement^dans 
les registres du moniteur et de 
ce fait, on ne doit pas la posi- 
tionner (PILE SYSTEME T07 de 
$ 6081 a $ 60D0. TO7-70 de $ 
6081 a $ 60CC et M05 de $ 
2081 a$20CC) 

II est temps de parler mainte- 
nant du registre de page DP (8 
bits) Ce registre permet I' 
adressage DIRECT dans une 
page de 256 octets, lorsqu il 
contient I'octet de poids fori de 
cette pags 

- Une seconde. un octet de 
poids fori dites-vous ' Et 
1 adressage DIRECT, quest- 
ce ?.. 

Lorsqu une valeur est supeneure 
a 255 ($ FF). elle se retrouve 
codee sur deux octets, vous 
vous en etes sans doute apercu. 
Eh bien le poids fort concerne le 
contenu du premier octet: exem- 
ple : la valeur 32500 est egale 
en hexadecimal a $ 7EF4. le 
poids fort en sera $ 7E et le 
poids faible $ F4. Si nous avons 
a effectuer un adressage elendu 
dans une meme page de 256 
octets, il nous suffira de placer 
dans le registre de page DP. 
I'octet de poids fort des adres- 
ses concernees, et d adresser 
en mode DIRECT (signe plus 
petit que *< ") avec I'octet de 
poids faible de ces adresses 
L'avantage? Eh bien puisqu'un 
octet seulement est necessaire 
a I adressage. on economise de 
la memoire et de plus la rapidite 
d execution est accrue. 

- Bien-compris. mais comment 
proceder ? 

Facile, on charge le registre A 
ou B de i'octet de poids fort, et 
on translere cette valeur dans 
DP Soil le mnemonique TFR 
(transfer! register to register) 
pour "translert de registre a re- 
gistre" Ce registre devra lui 
aussi etre remis, apres emploi. 
dans son etat d'origine (le regis- 
tre DP contient sous Basic la 
valeur S 61 pour T07 et $ 21 
pour MOS). soil lexemple sui- 
vant: nous allons, en adressage 
DIRECT, placer la valeur $ FF 
en $ 4E24 (segment dun octet 
au milieu de I'ecran). 

7D01 86 4E LDA # $ 4E : On 
place I'octet de poids fort de 
ladresse $ 4E24 dans le regitre 
A. 

7D03 IF 8B TFR A.DP : On 
transtere dans DP le contenu de 
A. 

7D05 86 FF LDA # $ FF : On 
charge maintenant A avec la va- 
leur S FF 

70O7 97 STA < $ 24 : On 
place en adressage DIRECT la 
valeur de A a l adressage de 
poids faible $ 24 et de poids fon 
$ 4E place dans DP. 
7D09 86 61 LDA # $ 61 : 
Notre adressage effectue on 
charge A avec la valeur $ 61 
7D0B 1F 8B TFR A.DP : On re- 
place dans le registre de page. 
la valeur initiale necessaire au 
bon fonctionnement du Basic 
7D0D 39 RTS : Retour au 
Basic. 



II est bien evident qu'un tel 
exemple n'a aucun sens (POKE 
& H4E24 & HFF), si ce nest de 
vous dfimontrer ce quest un 
adressage direct. 

- Bon. maintenant on en connait 
peut-etre suffisamment pour un 
exemple plus etoffe; vous n'avez 
pas un true marrant a nous pro- 
poser ~> 

■ Tout a fait, que diriez-vous 
dun scrolling lateral, modeste 
mais facile a comprendre 

- Par exemple... 

Tout d'abord, il taut savoir que 
laffichage ecran sur T07 met 
en oeuvre 2 zones memoire 
possedant les memes adresses 
(& H4000 a & H5F3F pour T07 
et & H0OO0 a & H1F40 pour 
M05). La premiere determine la 
forme de ce qui est affiche sur 
i'ecran (pixels formant caracte- 
res ou dessins). la seconde en 
precise la couleur Ces deux 
zones, aux adresses identiques, 
ne peuvent etre employees si- 
muitanement. On devra done, 
en fonction de ce que Con desire 
obtenir, choisir Tune ou Cautre 
de ces zones ou passer de I'une 
a I'autre Comment ? Eh bien en 
meitani a 1 pour la forme et a 
pour la couleur le bit (celui de 
droite) de ladresse & HE7C3 (& 
HA7C0 pour M05): adresse du 
registre de donnees du PlA Sys- 
teme 6846 (bof..). 

- Rassutez-vous. pour cela nous 
disposons d'operateurs logiques 
qui vont nous permettre, dans 
un octet, de forcer certains bits 
a passer a 1 ou a 0. 

L'emploi de loperateur OR. 
force des bits A passer a 1 de la 
faec-n suivante: OR 0= 0, 
OR 1= 1, 1 OR 0= 1 et 1 OR 
1=1. Soil par exemple la valeur 
binaire 10101010; l'emploi de 
OR suivi de 11110000 nous 
donne le resultat suivant : 

10101010 
OR 11110000 



= 11111010 
les bits 4 et 6 ont ete forces a 1 . 
Loperation inverse, sort le pas- 
sage a Ode certains bits sob- 
tient par loperateur AND de la 
facon suivante : AND 0= 0. 
AND 1= 0, 1 AND 0= et 1 
AND 1 = 1 , soit pour la meme 
operation : 

10101010 
AND 11110000 



= 10100000 
les bits 1 et 3 ont ete forces a 

Loperateur XOfl force a 1, lors- 
que lun des chiffres binaires et 
un seul. est a 1 XOR 0=0. 
XOR 1=1,1 XOR 0= 1 et 1 
XOR 1= 0; soil pour la meme 
operation: 

10101010 
XOR 11110000 



= 01011010 
les bits 4 et 6 ont ete forces a t 
et les bits 5 et 7 A 

Lemploi dun tel operateur est 
evident lorsquon desire forcer a 
1 les et a les 1 Riches d'un 
tel enseignement, revenons a 
notre probleme qui consiste, 
dans notre exemple. a (aire pas- 



ploi de OR t nous parait tout in- 
dique. reprenons pour exemple 
notre operation. 

10101010 
OR 00000001 



10101011 
seul le bit de droite est passe a 



Parfait! Voici done dans notre 
cas. comment proceder: 
LDA >$ E7C3 : On charge A du 
contenu de ladresse $ E7C3. 
ORA # S 1 : On fait subir un 
OR 1 A ce contenu. 
STA >$ E7C3 : On replace le 
resultat A ladresse $ E7C3. 
Commutes de la sorte. notre 
exemple concernera uniquement 
la memoire ecran FORME dont 
nous pardons plus haul Voici 
done sans plus attendre. Coeu- 
vre promise : 

7D01 B6 E7C3 LDA >$ E7C3 
7D04 8A01 ORA #$ 1 
7D06 B7 E7C3 STA >$ E7C3 : 
Selection mode forme. 
7D09 8E 4000 LDX # $ 4000 : 
On place en X la premiere 
adresse memoire ecran 
7D0C A6 84 LDA ,X :On charge 
A du contenu de X 
7D0E B7 7FFF STA >$ 7FFF : 
On place A en memoire dans un 
octet libre (ici le dernier de la 
memoire utilisateur) 
7D11 5F CLRB : On initialise le 
registre B. lequel nous servira 
de compteur. 

7D12 A6 01 LDA 1.X On place 
dans A le contenu de I'octet sui- 
vant (X+ 1), 

7D14 A7 80 STA. Xt : On 
place a ladresse placee dans X, 
le contenu de I'octet suivant. 
puis X est incremente. 
7D16 5C INCB : On incremente 
B. 

7D17 CI 27 CMPB # $ 27 : 
Comparaison de B avec la va- 
leur decimale 39. 
7D19 26 F7 BNE $ F7 : Si la 
valeur ci-dessus nest pas egale 
a 39. on boucle en $ 7D12 (F7, 
complement a 2 de -9). 
7D18 B6 7FFF LDA >$ 7FFF : 
Nous sommes arrives au 39 
erne octet de la hgne, on place 
dans A, la valeur du premier 
octet de la ligne. mise en me- 
moirs en $ 7FFF. 
7D1E A7 80 STA ,X+ ; On 
place A ladresse du dernier 
octet de la ligne, le contenu de 
A, puis on incremente X. De la 
sorte. on passe au premier octet 
de la ligne suivante. 
7D20 8C 5F40 CMPX # $ 5F40 
: On venfie quand meme que 
ladresse de I'octet en question 
n'a pas depasse la page ecran. 
7D23 25 E7 BLO : Si inferieur 
(branch on lower), on boucle en 
$ 7D0C (E7= -25). 
7D25 7E 7D09 JMP : Si supe- 
rieur. GOTO $ 7D09; on conti- 
nue le SCROLL 

Cet exemple concerne la totalite 
de la page ecran mais il est 
possible de delimiter le 
SCROLL, en changeant les 
adresses du debut de page ($ 
7D0A, $ 7D0B) et de fin de 
page (S 7D21. $ 7D22). Et pour 
terminer, un petit exemple en 
"deux lignes w 



J- CLEAR, tH7D80,£:CLS:LOCATEe,e,e:SCREEN3 
.fJ.0:FORI=&H7Dei TO &H7D27:REA[>A*:P0KEI, 
VmL> "iH" +(>*>: NEXT :DATflB6,E7,C3,8A,et,B7, 
E7,C3,8E,55,Ee,A6,84,B7,7F,FF,5F,A6,81,A 
7.8e,5C,Cl,27,26,F7,B6,7F,FF,A7,ee,8C,5B 
,De,25,E?,7E,7D,e9 

2 DEFGR*<e>=15, 31, 31,255. 255,255, 123,49: 
DEFGR*< 1 )=B, 255, 1 92, 254, 255, 255, 222, 148= 
F0RI=8T028e:PSETUMT<RN[>»319), IMT<RHD§14 
8').INT<.R»H>»7> + t:NEXT:C0L0R4SL0CATE2e,23 
:PRINTGR*<e>GR«<l ) : F0RC=8T0319:LINE<C, 18 
8 -<C, 148*INT(RHD*38)),3:HEXT:EXECI.H7E)ei' 



ser a 1 le bit de droite de 
ladresse & HE7C3. pour selec- 
tionner le mode FORME. Lem- 
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DEMANDEZ LE PROGRAMME soft-parade 



Achetez vos logiciels les yeux fermes, nous les avons testes pour vous ! 

Nous avons selectionne pour vous les meilleurs logiciels actuellement disponibles en France. Nous ne 
pretendons pas que cette liste est complete et definitive et il est evident que nous y rajouterons regulie- 
rement des programmes. Pourtant, vous chercherez en vain certains programmes quijouissent dune 
bonne reputation et qui se vendentsurtout grace a lapublicite et aux conseils des vendeurs qui nepeu- 
vent pas connaitre tous les logiciels disponibles. 

Les prix sont, nous I'esperons, les meilleurs du marche et les abonnes - anciens ou nouveaux - benefi- 
cient en plus d'une remise de 10 %. Si vous etes nombreux a nous suivre dans cette experience nous 
pourrons rapidement arriver a faire baisser les tarifs des fournisseurs pour atteindre I'objectif que nous 
nous sommes fixe: ramener les prix a une plus juste valeur f 

Les classements sont faits en fonction de I'tnteret du programme et ne tiennent pas compte des prix, 
c'est a vous dejuger de Vopportunite de la depense. N'oubliez quand meme pas que si le rapport quali- 
te/prix est mauvais, le logiciel ne peut figurer dans cette page ! 




Si vous etes ABONNE. 
deduisez VOUS-MEMES 
vos 10 % de REMISE 
sur le bon de commande. 
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j n 


4B0 


1* MASK Of THE SUN 


OtSK 


V n 


Mt 


IS IEB. SIMULATE UB 0€ VOL 


BBM 


J R 


JW 


IB PINBALL CONST SUCTION 


Disk 


J M 


BN 


• 1 CHOPUETER 


DISK 


J U 


300 


U HARD HAT MAC*. 


DISK 


J U 


iflo 


COMMODORE 64 








.REALM OF IMPOSSIBIUT, 


MODULE 


j M 


MO 


1 LODE RUNNER CHAMPIONSHIP 


DOK 


J " 


ITS 


1 BOULDER CASH 


K7 


J « 


T15 


S DSI WARRIOR 


KJ 


F i 


M • 1*0 


e SPY YS SPY 


KT 


J U 


1*0 


f COHAN 


OISK 




330 


B SEVEN CITIES Of GOLD 


DISK 


V M 


MO 


P TOURNAMENT TEHNI5 


DISK 


-J U 


ISO 


10 RAID OVER MOSCOW 


Kf 


.1 u 


1*8 


1 1 SUMMER OAMES 


WSKJ1K7 


J M 


1R37300 


II BATTLE FOR MIDWAY 


C"S-'K7 




M ■ MO/ISO 


1 J GHOSTBUSTERS 


OISK.'K' 


J U 


ISO/US 


M BRUCE LEE 


DISKouKT 


J M 


130 


15 SPELUNKER 


DISK 


J M 


1TB 


IB HYPER BIKER 


KT 


J M 


N 


1 7 WHISTLER'S BROTHER 


DISK 


J M 


ITS 


1* MR ROBOT 


KT 


J M 


ISO 


1B0CCATHLON 


OISK'KT 


J " 


130/ IJO 


» BEACH HEAD 


KT 


J M 


1*9 


11 BLUE MAX 


KT 


■' " 


1*0 


3 S MASK OF THE SUN 


DBK 


t V R 


340 


I< VOYAGEUR 


KT 




1«B 


IS CHINESE JUGGLER 


KT 


,i M 


M 


le DALLAS 


DISK 


v P, 


US 


iTHOserr 


KJ 


V fi 


110 


:b revenge of the mutants 

CAMELS 


KT 


.1 M 


100 


» HOVER BOWER 


KT 


i ■ 


110 


M KILLER WATT 


KT 


H J u 


IN 


31 ZENJI 


K7 


J H 


M • IH 


31 AXIS ASSASSIN 




. J U 


180 


33 ONI. ON ONI 




I M 


380 


3* ARAJRAN NHJHTS 




• j U 


BS 


3S FLIGHT SIMULATOR tl 




1 J H 


tan 


M PINBAU. CONSTRUCTION 


DISK 


1 U 


MO 


37 CHOPLIFTER 


MODULE 


1 1 U 


MB 


30 HARD HAT MACK 


OTSK 


> J M 


3«0 


IRARCHOH 


DISK 


• J M 


MO 


ORtC 1 / ATMOS 








1 3DFOHOUS 


KT 




1*0 


1 MEURTRE A GRANDE VITESSE 


K7 




MB 


JAIGLEOOn 


K7 


V R 


180 


Idc^y""" 


..: 




" 


I SUPER JEEP 


M 




1*0 


rnatm 


KI 


V i. 


m 


B COBRA PINBALL 


KT 




140 


VFRELON 


KT 




110 


1 LE MAMAHT OE L ILE MAUOIIE 


KT 




IBS 


1IBK1SASTOH 


K7 




110 


11 PSYCHIATRIC 


KT 




in 


DTENOREPOU.ET 


K7 


V II 


IBB 


M LANCELOT 


KT 




ISO 


IS TERMINUS 


K7 




110 


IS ULTIMA ZONE 


KT 




BS 


1 7 MISSION DELTA 


KT 




M 


SPECTRUM 








1 DARK STAR 


KT 




OS 


IXAVtOR 


K7 




TO 


1 BRUCE LEE 


K7 




ISO 


1 ZAXXON 


KT 




110 


S MATCH POINT 


M 


J u 


M 


SABRE WULF 


K7 




1*0 


7 UNDER WORLDE 


K7 




118 


■ BEACHHEAD 


KT 




ISO 


• LORDS OF MIDNIGHT 


KT 




100 


IOATKATAC 


KT 


J M 


IB 


IIPSYTRON 


KT 


H J 


SO 


HIM IT 


K7 


V ■ 


110 


13 PAINTING JOE 


Kt 




n 


ULOMBHIX 


KT 




tag 


IE 30 MOVER 


K7 




IB) 


17 INTERCEPTEUR COBALT 


« 


J P. 


yS 


IS MANCHRD. GENIUS 




• B 


140 


TEXAS TI/B9 








1 LUNAR LANDER 


-■ 


J X 


M 


1 DRIVING DEMON 


MOOULE 


J M 


it(i 


3 AMBULANCE 


MODULE 


j U 


HO 


4 RABBIT RAIL 


MODULE 


..: M 


III 


THOMSON 








SAUf SPECIFICATION CGNIRAIRE. TOUS CES LOGIO 
COMPATIBLES MOS TOT AVEC EXTENSION IM ET TO 






1 AKUE D OR 




V 


IBB 


1FB1 




J u 


IM 


3 INVASION 


KT 


J 


IH 


* AIRBUS 


•.'.■■■...,. 


j H 


«n 


S ELIMINATOR 


KT 


J M 


110 


S PULSAR It 


KT 


J M 


1*0 


T STANLEY MOS 


KT 


H 


I4B 


B SPACE SHUTTLE 5IMULATOP MC 




R J 


MO 


a vox 


KT 


t 


ISO 


lOYfn 




W 


1*0 


11LABYHINTHESURVIE 


KJ f 


V M 


ISO 


12 BACKGAMMON 


■ 7 




I TO 


ZXB1 








1 RIGEL 


..• 


J 


BS 


1 src.jii'inu'i 




J 


rs 


3 INTERCEPTEUR COBALT 




" 


BS 


4 CROCK Y 




J 


BS 


i COBRA 




J 


BO 











CRAMP 






Sans se cogner le museau contre les murs qui len- 
toure, un pion obstine doit decouvrir la sortie. Soyez 
sympa, aidez-le ! 

Brice RIVE 



Mode d'emploi 

Ce programme utilise quelques routines MACHINE permetlant de 

definir ses propres caracteres 

Les explications concernant le jeu sont incluses 



ERRATUM ZX 81 N° 76 

ZX DONKEY 

voici limpression correcle de la liqne 14 

■Z&CCbFllEZLi~EltCi2El~~±2~E< : EE,Z2$ 
lCE5O5114SB0fl?CD5a7E19DirC6eFSC4 
C'E4 4FliO«?3e30^' , ED'i23eeeE15 3-EFE 
oB':C6F4ll9'E3&aCfl7£&5£?7 3Eaie-3i0 
a63*e036e51936a9E1368O2B36eoaAac 
4.*llC'F02197EPE3e' 




ChHRCTERES. 

***** ***** *»»•### ******* 

* CROMP * 

* ECRIT PPR B.RIUE * 

* POUR LE ZX 31 16K * 

****t*4**«*****4******t* 



rem ii3iaeaoi3aasoa>si3aoiaea**i 




REM 

GOTO IB 

CLERR 

3RUE '■CRRMa" 

IF PEEK 16820 1 



501 THEN GOT 



110 
120 
130 
1-0+ 1 
110 
150 
160 
170 
180 



G05UB 8000 

LET TflB=l 

LET UIE»3 

LET &CORE-0 

OOSUB 7000 

ir INKEY|»"" THEN GOTO 70 

LET C»«INKEY| 

POKE 16417, PEEK 16417*lCi«" 
Ct>"7") *a*(C>>"6"' +3*ICS*"6" 
CCt*"S " ) 

LET fl=USR 16524 

LET TIME«TIME*1 

IF TIME"TO THEN G03UB 6000 

GOTO 60* (NOT fl) *180* IRsl) *1 
*fi = 2> 
* LET TRB=TRB+1 

LET SCORE«SCORE+TIME 

IF TRB»13 THEN GOTO 4000 

GOTO 60 

LET UIE=UIE-1 



2?? i^^ 1 ?" 8 ™ EN G0T0 5(3iai2 7100 PRINT ■•■■■•■■■■•■■■■■•»•■ 740C31641C36D4iaOOO2OlElE2O00008 

,£*g 'ipl B0 ••>■•••<•■■• ■ FBF9E8B3B3B9E 3367" 

t??? £k£L ..«« ..„. 7 H0 PRINT RT 21,0, '■■"■■••••■"• 9010 LET his =h t * " 3FOOOOO01E1EO0OO 

fSa* §2tSt U 2? i fi ?2 1 -.- M i.T««T««.. " " 0021003R0E63ae2O369E231OFB3eC923 

JS32 £S£& 61 ?A 1 S ; .-!.5^ I SS55 n- ?lsa COSue 75Oe+S0*iTAB-6*iTflB>6 0O2OF3C93E03EO47 2233" 

4030 PRINT RT 10,0, "UOUS RUEZ Re J) 9020 LET RS=R* ♦ "0D2 1O040C93E 1FED 

U5SI fi 50RTIR SANS TROP DE OOMM 713C , RqND USR 16S27 47DD218102C9ED5F0 10 1023EF5CDB5O2 

AAla odtwt qt ii a •■ if uni i« DDno 714C RflN0 U5R 16524 3E03ED47ED4721DF 3667" 

^^m^ntIm^t 1 ^' QMT» U ffM * 7150 RETURN 9030 LET R# = R«*"D91121B0F3OEFEO6 

?Sl* Sotwt -K-.OVP7 £* rnMDD^no 78 *8 RETURN 08 10FE06B7EO78O3FF 19CD440005C2EF 

4050 PRINT ESSRVEZ OE COMPRENOR ?60lB f R 1 = 1 TO 20 40CD9202CD2002OD 3687 " 

Mfrarnovo roo? R »??TnrE n D wtow 5 761,a PR * NT ftT 1.14,""" 9040 LET fl*=R$* " 2 1O04O3E7FDBFE1F 

g^595 ER CRRIL eST LOIN D ETRE P 76aa NCXT j 3a03COC7403ElFED47C3R4O22R7B403E 

rS-S^BT^n- -.t ,.«,,« . * -ottb* . u 7 ©30 RETURN 02CD93413R21403D 3313" 

4060 PRINT 51 U0U5 LE r RITE 5 ,EN 7650 PRINT RT 13. A. "■ ■•■■•■■■■■• 9050 LET R«*=fli *" 2006 1 1FSFE 191823 

^OVEZ MOI LERE5ULTRT R L RDRE55E if ?-°. S WW . - H i 1B '*' 3O200C237EF E C9201F iIeOFF IS IB 193D 

Jia dbt5+ "A otiip ■* i d rouPKj^T. 766 ® G0T0 76e0 3006110801191610 2190" 

i a -e™ P o INT §£§£¥£ 31 R-CflUENDIS 77O0 FOR 1=3 TO 18 STEP 5 906O LET R«=R«* " 3D200C2B7EFEC920 

™ ~S, -r .£552, .. 77 l e PRINT RT 1.5, '■■■""*". RT I, 07 112000191S01CF227B4O7EFE9E2S0fi 

4080 PRINT 'MERCI. 21, "■••■"■■• FE 1E010000200 103 2204" 

4090 STOP 7720 NEXT I 9070 LET R«=fl«*"03C93E00CD934101 

5 S' 3 ? ^k 5 „ — .. ., 7? 3» GOTO 7 &«0 0000C90617ED5B0C4a212iaai9EB21FF 

ISi? SSy° T U S5 l 6 ^ 21 ™.. «..-- un , 77 50 FOR 1 = 3 TO 19 59 1323 1AB728FRFE 2828 

5020 PRINT RT 5,0, y2 U S«£ UE £= MflL - 77 60 PRINT RT I,I,""',RT 1,32-1, 9030 LET fl*=fi**"762805CO934 1 18F 1 

HEUREUSEMENT EPUISE WOS Vl • ■■ D5 1 1E70019D110E9C9C5D5E5E52 19340 

I 5 .^ n «T„-r n-r o, * .-no.a.^, -.-o-- 777b n EXT I 06074F8 1 10FO4F09 3660 

5030 PRINT RT 31,0, PPE5SEZ R 7730 RETURN 9090 LET R« =R «+"EBO60BE 1 1R77 13D5 

«™ P 5 U ? e R ^?yS2' .... tu., ^^-rn ■>».« 7e0B F °R 1*3 T B =® 11210019O110F5E1O1C1C9C33C7R76O0 

5040 IF INKEYSs"" THEN GuTO 5040 7810 PRINT RT 1,4, "■ " AND I<.16,fi 2719" 

5050 IF INKEYt = "R" THEN RUN 30 T 1,9,'-*" AND I>6,flT 1,14; "•" RN 9390 PRINT "ASSEMBLAGE CODE MACH 

^SS? 5 I2 P ^ «— .«...». ,., T , D I<16,RT I,!*;""' 1 AND I.-6.AT I, INE" 

O000 LET P=23040+33*3*33*8*INT I 84; "**' AND Itl6,RT 1,29,"" ' AND 9400 IF PEEK 16824^118 THEN PRI 

PND*19) +INT tRN0*32i i>6 NT "ERREUR DRN3 LA REN LlGNE 1", 

6010 IF PEEK PolSS THEN GOTO 60 7323 NEX T I ERR 

?S-,« «„^» „ ,» 7 630 RETURN 9410 LET 1 = 16514 

955® £°, KE R'3® „, 8600 LET RJb" 9420 FOR J=0 TO 9 

^2?? SS K H E*?2'?2« U 0U5 DIRIGEZ UN PION 9430 LET T=0 

2?i2 nS^S n*^S'J 6 2 ®UI SE DEPLRCE SUR UNE SURFACE 9440 IF R«(lJ«" " THEN GOTO 9510 

£???. S9SS £ + ?Sa 16 ?, OELIMITEE PRR UN MUR.VOTRE 6UT E 9450 LET N = 16*C0DE fl**C0DE R$13) 

^2?S SStE 5 + J22*JIS ST ° euiter les murs ainsi oue v -475 

D070 POKE P+165.160 OTRE PROPRE TRRCE JU50U R u RPPA 9460 LET A»=A$»3 TO > 

^'5? l 5 ES K i £ + i2 a '2S rition de lr sortie que uous deu 9470 let t=t*n 

S?22 P0£ E p+a31 ' 30 RCZ PTTEINDRE POUR RCCEDER RU Tfl 9430 POKE I,N 

Si?,? RE T U ?y oo -r , E£fiE BLEAU SUIURNT. . .UTILISEZ LES TOU 9490 LET 1 = 1*1 

™?£ ^ T c 5 T25I? a l52S-r ,«« t.,t * CHES FLECHEES. . .PRESSEZ UNE TOUC 9500 GOTO 9440 

7010 POKE 16307, START-256*INT iS HE 9510 LET T0T=UAL fi*(2 TO 5) 

ISSX'SSSi ,==«=, tut =-r n r,-r ^ = = 8aai LET TABsl 9520 LET A* = A*<6 TO ) 

,020 POKE 15503, INT (START /^56) 5002 LET UIE»3 9530 IF TOT ; >T THEN PRINT "ERREU 

7030 LET Tu=S0 + 3C* iTAB>6l 8003 LET 5CORE = R DRNS R« EN LIGNE ' , 9000* 10* J , E 

7040 LET TIME=0 8010 GOSUB 7000 RR 

7050 POKE 16417,3 8020 FOR 1=1 TO LEN R$-31 9540 NEXT J 

7060 RAND USR 16516 6030 PRINT RT 0,0,R«lI TO I*31i 9550 PRINT "CODE MRCHINE OK" 

7070 RRND USR 16S19 8040 NEXT I 9560 PRUSE 50 

7030 CL3 8050 IF INKEY«»"" THEN GOTO 8050 9570 RUN • 

7090 PRINT "SCORE: ", SCORE, "'JIES 3060 RETURN 




FX-747 



FX70ZP 



Pilotes emerites. testez par quelques tentatives d atler- 
rissages. les etonnantes possibilites de votre prototype 

MarcZEIGLER 



Mode d'emploi 

Tapez DEFM 0. Le but est d'arriver avec un angle de ei une 
altitude non nulle mfeneure ou egale a 20 m dans les 2000 m avsnl 
le debut de piste dune longueur de 1800 m t3 tentaiivest. 
La vilesse de depart est de 400 m s. les autres patamelres AL1 
DIST PISTE. ANGLE sont determines aleatoitemenl Tentez dans un 
premier temps de franchir une chame monlagneuse de 4500 m 
L ordinateur vous mdique alors la distance qui vous sepace du debut 
de la piste (si distance negative, vous etes dessust Si 2000 m 
avant la piste, vous obtenez un angle de 0. cetui-ci se slabilisera Si 
vous pensez ne pas avoir assez de dislance pour que le FX-747 
s'arrete. ne descendez pas a 20 m (ou moms) contmuez el apres 
un passage au dessus de la piste. I ordinateur vous ieplacera dans 
de nouvelles conditions (seconde teniativei Si vous pensez atterrrr 
dans les meilleures conditions descendez a 20 m au moms sans 
oublier de stabiliser el vous obtiendrez l autonsation d allerrtr La 
pisle delilera devanl vous. les frems seront aulomatiquemen! action 
nes et vous pourrez observer voire treinaqe 



DESCRIPTION OES COMMANOES 
AV Augmenlalion de la vilesse: ■ 50 m s 

DV Diminution de la vilesse : -100ms • baisse de 50 m d altitude 
VD Diminution dun angle negatil par rapport a la piste lvir;»oe 
droite). 

VG Diminution dun angle posilit par rapport a la piste [viiaqe uau 
chel 

ST Stabilisation de descente de moniee ou oe decrocnaae 
D : Descente L ordinateur vous demande la lorce de voire des- 
cente; eNe doit etre comprise entre 0.1 et 3 La pariie decimate M 
cbiftre au plus), permet une descente precise, loute descente en 
gendre une augmentation de la Vitesse 
M : Montee Le mode operator est le meme que 
mais avec des correspondences de forces d' 1 '* ■ 
Les commandes D et V une lois introdmles it nest | 
de les reintroduce au prochain attichaqe INSIHUCtlON poui conli 
nuer la descente Par contre en cours de descente on peul chanrjei 
la (orce ou arreter la descenie ou la moritee pat ST 
PRECISIONS 

■ La catastrophe due a un decrochage ne peut-etie evitee que oai 
la commande ST 

- Si vos conditions d atternssages ne soni pas conecies a I appro- 
che de la piste. I'autonsatton sera le'usee et vous passeie-- a la 
tentative suivante 

■ Les vents indiques ont une incidence sur i anqle 

- II est preferable de descendre a 20 m d altitude avanl le del iQ 

la piste afin d alternr dans les premiers rnetres 







II 

it 



u,5 



LIST 
ie¥flC !KRIT5e:?E 
I CSR !; 
■':?{.' '?tf ::£c 
LEI :;-:.." 

15 K=K+1IPRT "IEHT 

btive m";vm 
3e:fl=ieeee 

16 !F K=4!fR! "Pt.ll 
S BE CfiPJURflll!" 
rDOBBRBE'.'SS' 1 
P!1":EHD 

28 z=R»;mit,-;,-* 

18: IF ;;5 THEH 

2! 
31 I--24SB:if 2=8 T 

HEH28 
48 H=Z«iee8iB=H:Y= 

ieee:z=e:n=54M 

!V«458I 



41 SSE t:ssb y 

45 IF »>B THEH 58 

46 L=L+i: IF DliF* 
! "DISI/FI31E"! 
£;" H":60T0 68 

47 if h<v:pri "k 

PERCUIEZ Lfl HON 

:.-."sutUH :/■ 
IVfiHr-:£KD 

48 IF H=V!PR1 "V01 
RE fi!LE TOUCHE 
LE SOIWETViee 

mmis'iESD 

49 68!0 46 

58 PRI "H0NI.DI51' 

■:*;■' fl" 

68 IF 5=8! IF C=8i! 

F H=28;60TO 481 

8 
t2 PRI "fliT/IK!" 



«"."» N6LE-PISIE 
"!1 

63 PRT "»It."SEl" 
IK" 

64 IF E<258 THEH 5 
888 

65 IF D=8;IFCJ286 
8iV=1288 

?e KJ=KEV: IHP "IHS 
RUCTION", St: IF 
«="D";6S8 118 
8:T=2488 

75 IF X«="RV";E=E* 
58 

76 IF X»=T;IF Z> 
8l?RT "STBBIL1S 
HTI(W"sZ=8i H=tt- 

88 IF »-T!6SB i 
168:1=3188 



S2 IF X$="W";E=E- 

188:K=H-58 
65 IF XJ="3 ;'!;=:; 
38:Z=8 

56 IF «="Ve*5B=B- 

1588 

57 IF Xl="V5 r ;8=8* 
1588 

!9 IF 8i586!IF D*8 
1PRT "BilTO.REFU 
SEE°:G0T0 13 

98 C=RHIiiRflNt,-2;t 
18: IF 6)2 THEH 
98 

95 if e=e;PRT "vek 

T «• 
it IF !=liFRT "VES 

I HE":B=E-53e 
J7 jf Qs2!PRl " EH 

T N0":6=E-:ii" 



1688 8>R-E 



1188 



1865: 

W-EIRE? 
C=IHT iiQR 'S!2 
*Et2!;:J=!HT t» 
CS (R/C:i 
If B!8!t'=-8 
?E! 

ihp "force 8-3 
;*,n 

IF H>3 THEN 118 



i 



R=(FRRC Sitie:! 

F R)INI R T »tt; 

1188 

RET 

S=fK:t=fi:«=fe-E 

:RET 



::v 



2488 H=H-H«2ee:E=t^l 

8tN 
2485Z=Z*l:IF Z>3:PR 

T "VITE UN PBSfl 

CHUTTE!","TROP 

T8RS":H=8 
2418 IF Hi8;FRT "ECR 

RSE!":END 
2428 IF Z=3;PRT "DEC 

R0CNR6E","L RY! 

311 PIQUE" 
2438 RET 
:i88H*Ni!88:!F Z= 

3IG5E 2488 
3118 RET 
4618 RRIT 28:PRT "fit 

TO RTTEKRISSRGE 

":RR1T 8 
4615 FOR 8=1 TB 4 
4828 FOR 1=18 TO 8 5 



TEP -l:?.=18t(3- 

I) 
4638 PRT CSR Il'VlC 

SR RiYiHEXT i 

:HE2T 
4868 WHIT 38IPRT V 

iCSR 5!"-. -8-, 

""^'CSR 18 * "n " 
4C78 PRT "ffllOH POSE 

"."OEROFREIHS" 

4838 P=1586tC 

4898 E=E-48:P=P-E:IF 

Ei8 THEM 4138 

4693 IF M THEN 411 

3 
4835 PRT "FIN BE P!s 

IE R"iPiT."VI 

T."iE;"II/S" 
4128 60TB 4698 
4138 PRT "ATTERF.ISH 



SE PRREflIT","BI 
EHVEFiUE COMBRMO 

rnrtm 

4148 PRT "CRRSh"."14 
6 RORTSV'VS ET 
IEZPILOTE!!?": 
EM 

56J6 PRT "VIT. TROP 
FS1BLE" 

5818 IF H<!868:ilfill 
38: PRT "OB EST 
LE P1L0TE'!'" 

5615 kP.II 18:H=H-48T) 
:'.F HjiPRT "FiV 
IBH CES:HTE6RE" 
:t:it 

5829 PRT "SOL DIST." 

;h;x:soio sei 



SANTE 7 



La reunion exceptionnelle des plus grands savants du 
monde a permis, apres de longues annees de recher- 
ches, la decouverte dun vaccin absolu. le SANTE 7.Sa 
fabrication a grande echelle necessite lemploi dune 
substance rarissime abondante sur URANUS, le SAN- 
TEHUM. 

Serez-vous assez habile pour aller querir cette es- 
sence miracle ? 

Fernando COSTA DOS SANTOS 

SUITE DU N 78 






CANON X07 



40250 DATA-252,252,60,28, 12, 12, 12, 

26" , "252,252,252,232,232,252,246,2 

2B 

40260 DATA "252, 252,252,252, 232,232 

, 12,240", "240,224,224,224,224,224, 

240,246 

40270 DATA "124, 60, 60, 60 ,60, 60, 124, 

252" ,"0,0,0,0,0,0,0,4 

40280 DATA-60,60,32, 124, 124,232,25 

2,252" , "168,252,252,252,252,252,25 

2,232 

40290 DATA"252,252,252,252,252,248 

,240, 192" , "128, 140,28, 140, 140, 156, 

28,92 

40300 DATA"24B,252,252,252,252,252 

,252,252" , "60,252,252,252,248,248, 

248,248 

40310 DATA "220, 184, 116, 108, 216,208 

,208,20B- , "252, 12,244,24, 12,4,4,4 

40320 DATA "124, 188,220,220, 108, 108 

, 108, 10B" , "4,252,252,252,252,252,2 

52,252 

40330 DATA -252, 252, 240, 192, 192, 128 

, 128, 12B" . "252,252, 124, 28, 28, 12, 12 

i 12 

40340 DATA "0,0, 0,0, 0,0,4,252", "4,1 

2 , 28 , 60 , 1 24 , 252 , 252 , 232 

40350 DATA-252,252,252,252,248,248 

,248,252" , "136, 160,0,76, 12, 12,28,2 

32 

40360 DATA" 124, 252, 252,252, 252, 252 

,252,252 ',"216,103,116, 184,220,22 

8,248,252 

40370 DATA"12,24,244, 12,252,240, 12 

,252", "103,220,220, IBB, 124,252,252 

,252 

40380 DATA" 192, 192,240,252,232,252 

,252,252", "28,28, 124,252,252,252,2 

52,252 

40390 DATA-O, 124 , 124, 1 24 , 124 , 124 , : 

24, 124" , "O, 252, 252, 252 , 232 , Z52 , 232 

,252 

40400 DATA"0,252,252,252,252,204, 1 

72, 108", "0,244,244,244,244,244,244 

,244 

40410 DATA'O, 252, 224, 220, 184, 188, 1 

76,228', "0,252,252, 124, IBS, 188, 60, 

64 

40420 DATA-O, 252,232, 252, 252,232, 2 

32,0", "0,252,252,252,252,252,240,4 

40430 DATA"0, 252, 252, 252, 252, 252,0 

,252", -0,248,248,248,248,246,56, 18 

4 

40440 DATA" 124, 124 , 124, 124, 124, 124 

, 124, 124" , -248,244,236,220, 188, IBB 

, 184, 188 

40450 DATA" 236, 236, 236, 236, 236,236 

,232,228*, "244,244,236,220, 188, 124 

,252,252 

40460 DATA-224,232,220, 160, 156, 136 

, 136, 172- , "224,252, 124 , 188, 60, 60, 6 

0, 18B 

40470 DATA"2B,224,252,252,252,252, 

252, 252" , -252,0,252,252,252,252,25 

2,252 

40480 DATA "252, 252, 12,240,252,252, 

252,252", "252,252,232,4,244,244,24 

4,244 

40490 DATA- 184, 184, 184, 184, 184, 184 

, 184, 184" , "188, 188, 188, 188, 184, 180 

, 172, 156 

40500 DAT A "236, 220, 188, 124,252,252 

,252,252" , "180, 1 B4 , 188, 188, 188, IBB 

, 188, 188 

40510 DATA" 156, 1 72, 4B, IBS, 156, 160, 

188, 188" , "252,252,0,252,252,0,252, 




252 

40520 DATA "252, 252,0,244, 248,0, 252 

,252", "252,252,252, 124,252,252,252 

,252 

40530 DATA-240,252,252,252,252,252 

,252,252", -56,248,248,248,248,248, 

248,248 

40540 DATA" 124, 124 , 120, 1 16, 1 08, 92, 

60,0", " lBBj 124,252,252,252,252,252 

,0 

40550 DATA "252, 252,252,252,252,252 

,252,0", -188, 188, IBB, 18B, IBS, IBB, 1 

28,0 

40560 DATA" 188, 188, 188, 188, 188,220 

,4,0", "248,248,248,248,248,248,248 

.0 

40570 DATA* 56, 56, 16, 124, 144, 40, 68, 

252", "196, 196,236, 128, 108, 212, 1B4 , 

120 

40750 ' 

40760 'TABLEAU I 

40770 ' 

40780 DATAO, 1,2, 3, 4, 5, 3, 3, 3, 3, 3, 3, 

6,7,8,8,8,9, 10, 17, 12, 11, 13, 14, 15, 1 

6, 17, 17, 17 

40790 DATA17, 17, 17, 18, 19, 20, 20, 21, 

22, 23, 17, 12, II, 12, 17, 24, 25, 17, 17,1 

7, 17, 17, 17 

40800 DATA26,3,3,3,27,28,29, 17,30, 

1 1 , 31 , 32, 33, 34 , 35, 36, 37, 37, 37, 37, 3 

7,37,37,37 

40610 DATA37.37.29 

40820 ' 

40830 'TABLEAU2 

40B40 ■ 

40B50 DATAO, 3, 38, 11, 11, 39, 40, 11, 11 

,11, 11, 11, 41, 42, 11,11, 11, 11, 43, 11, 

12, 17,17,44 

40860 DATA45.46, 4 7 , 48, 49, SO, 31 , 1 I , 

52, 17,53, 11, 11, 11,11, 11, 12,17,54,5 

5,56,57,38 

40870 DATA59,60,61,62,63, 11,64, 11, 

65,66, 11, 11 , 11,30,67,68, 11,69,70,7 

1, 1 1,39,72 

40880 DATA73.74, 1 1 , I 1 , 1 1 , 75, 76, 1 1 , 

11 

40890 ' 

40900 'TABLEAU3 

40910 ' 

40920 DATA77, 78, 79, 80, 81 , 82, 83, 83, 

83, 83, 84, 85, 85, 65, 85, B5, 85, 85, B6, 1 

1,87,88,89 

40930 DATA90,91,92,93,94,94,95,96, 

11, 11,11, 11, 11, 11, 11,97, 11,87,98,9 

9,11, 100, 101 

40940 DATA102, 103, 104, II, 105,78,78 

,78,78,78, 78, 7B, 106, 11, 107, 108, 109 

, 109, 110, 111 

40950 DATA109, 109, 109, 109, 109, 109, 

109, 109, 109, 109, 109, 109. 112 

41030 ' 

41040 'U.N. 

41030 * 

41060 DATA1 13 

41070 ' 

410B0 "tf.I. 

41090 ' 

41100 DATA1 14 

60000 ' 

•SP DIVERS 



'GENERATEUR DE 15 NOTES 



60060 F0RA=1T0I5 

60070 D=INT (RNDt 1 1*48) +1 

60080 beepd,2:next:return 

60090 ' 

60100 *5AISIE 

60110 ' 

60120 S-INKEYS: IFS=' "THEN60120 

60130 C-ASC (SI :RETURN 

601 40 * 

60150 'TABLEAUlt 

60160 * 

60170 RESTORE 40780 

601 BO F0RI = 1T079:READA: FONTS ( 128) = 

T(A) :PRINTCHR«U28) i INEXT 

60190 RETURN 

60200 * 

60210 *TABLEAU2t 

60220 ' 

60230 RESTORE 40850 

60240 GOSUB601SO 

60250 F0RI=119T0112STEP-1 

60260 LINE(I,31) -!I ,22) :NEXT 

60270 RETURN 

60280 ' 

60290 ■ TABLEAU3t 

60300 > 

60310 REST0RE40920 

60320 G0SUB60240 

60330 F0RI-20T031 : PRESET (113, I) INE 

XT 

60340 RETURN 

60350 ' 

60360 ' TABLEAUbord 

60370 ' 

60380 CLS:FONT*( 128) =T ( 1 1 > 

60390 PRINTSTRING*(21,CHRS(128) ) TA 

B (7) CHR* I 128 J TAB< 19) STRINGS) 21 , CHR 

SI12B) ) i 

60400 RETURN 

60410 ' 

60420 'COMBAT M 

60430 * 

60440 FONTS (128) «T ( 1 1 ) :N«CHR*i 123) 

60450 FONTS! 129) -"252, 220, 140, 192, 

1 40 , 220 , 252 , 252" : M=CHRS ( 1 29 ) 

60460 FONTS! 130) ="252, 196, 172,20, 1 

72 , 1 96, 252 , 252 " : O-CHRS ( 1 30 ) 

60470 FONTS 1131 ) «"252, 252, 252, O, 23 

2 , 252 , 252 , 232 ■ : P=CHRS (131) 

60480 PRINTSTRINGS(79,N) I : G0SUB602 

50 

60490 M(0)=STR1NGS( 13, N) ♦0*0+0*0 

60500 C=0.:F0Rl = lT03:M<l>=M<O> :next 

:locateo,c:printm) 

60510 n(0> "strings* 17, n) : n ( 1 ) =str1 

ngsi 17,pi:n(2)-"<": i»o:k«o 

60520 LOCATE 1, I : PRINTM [ I ] ( : I-l + l: 1 

FK4THEN60520 

60525 CONS0LEO,4,0,O, 1 

60530 J=STICK(0) 

60540 IFJTHENLOCATEO.C: PRINTN [ELSE 

605B0 

60530 IFJ=lTHENC-C-i: IFC-- 1THENC=3 

60560 IFJ-5THENCC + 1 : IFC«4THENC=0 

60570 LOCATEO,C:PRINTMJ 

605B0 IFK=1THENRETURN 

60590 IFSTRIGI0)=0THEN60630 

60600 B=INSTRIM<C1 ,01: IFBTHENG=G+1 

ELSEGOT060630 

60610 LDCATE1,C:PRINTLEFTS(N(1) , B- 

1 ) ! :BEEP46, 1 :BEEP47, 1 : LOCATE 1 , C I PR 

INTLEFTStN(O) ,B) ! 

60620 M(C)=LEFTS(M(C) ,B-1 ) *N*R1GHT 

S(M(C),I7-B> :G0SUB60720: IFK=-1THEN 



RETURN 
60630 B 
00 



INT(RND(0>*3> : IFB-0THEN607 
I-INSTR(MIB) 



60640 B=INT(RND(1)*4) 

,0) : IFI=0THEN60700 

60650 BEEP47, 1 :BEEP46, l:LOCATEI , 

PRINTN(2) ) 

60660 k=1 :F0RJ=1T0400:NEXT:G0SUB60 

530: K-0: LOCATE I, BJPRlNTOi 

60670 l0cate0,b:pr1ntlefts(n(1) , 

! : beep1 , 1 : beep2, 1 

60680 ifb=cthenlgcateo,c:print-* 

:fori=ito2o:beepi,2:next:g=g-50:k- 

i:f-f-i: return 

60690 locateo, b : pr i ntlef ts i n < o ) , i ) 

60700 b=int(rnd(1)#2) : ifbthen60530 

elseb=intirnd(1)*4> 

60710 m(b)=rights(m(b) ,16) *0: gosub 

60740: i =0: locate 1,b: printm (b) s : got 

060530 

60720 F0RI-0T03: IFRIGHTS!M( I > , 1 ) -O 

THENRETURN 

60730 NEXT:G=G*250:K»-l:RETURN 

60740 IFLEFTS(MIB) , 1 I =0THENG=G-50: 

k-i:f-f-i:fori=ito4s:beepi, it next i 

RETURN 

60750 RETURN 

60760 ' 

60770 'DEFILE 

60780 ' 

60790 LOCATE 1, 1 : PRINTN ( 1 ) TAB (8) " >" 

TABtlB) •< 

60800 F0RI-1T0J:L0CATE1, l: PRINTN (I 

M0D2) TAB(9)MIDS!N, 1,9) : IFI-1THENF0 

RK-1T02E3:NEXT 

60805 IFINKEYS*-R-THENRETURN 

60B10 BEEPI, l: NEXT: RETURN 

60B20 ' 

60B30 'ASTEROIDES 

60840 ■ 

60650 CONSOLEO, 4,0,0, O: REST0RE6086 



60860 DATA, ,,-1,1, -1,1, ,1,1, ,1,-1, 

1,-1, , -1, -1 

60870 F0RI-0T08:READJ (I) ,K( I ) :NEXT 

60880 F0RI-0T0300: A=RND ( I ) *1 19: B-R 

ND(I>431 

60890 pset(a.b) :next 

60900 l0cate1b, i : print* * 

60910 line !0,0)-( 119,0) :line- (119, 

3u:line- (0,31 >:line- (0,0) 

60920 g=i:b»i:c=i:d*=i 

60930 line (102, 16) - (102,21 ): line- ( 

107,21) : LINE- ( 107, 16) 

60940 PRESET (1,2) : PRESET (2, 1) IPSET 

(1.11 



:for 



0T01E3:NEXT:B 
IFA=0THEN6097O 



60945 BEEP48,: 

EEP48.8 

60950 A-STICK(O) : 

60960 C=J (A) : D=K (A) 

60970 j»g+c:k«b+d 
60960 ifpoint i j , k) then61000 
60990 PRESET (G,B) :g=j: B-K: PSET (G, B 
) : BEEP9, I : GOT060950 
61000 IFJ<1020RJ>1070RK<160RK>21TH 
EN6I020 

61010 E=E+100:F=F*l:K-l 
61015 G0SUB60060:RETURN 
61020 F0RI=1T08:CIRCLE( J,K) 
61025 BEEPI, 2:NEXT 
61030 F0RI-0T0500:NEXT 
L040 cls:f=f-i:k=o:return • 




PRAM' 




V 7799 BASIC ETENDU 



Suite de la page 7 



2990 


DISPLAY AT(23. 


1) 


"4 


Z '.'00 


DISPLAY ATI24, 


1) 


"nhhhhhhhhr 


3010 


CALL MAGNIFY (1 






S020 


CALL SPRITE (#1 


10 


. *, 173. 129 


SO JO 


CALL SPRITE (#2 




. 7. 173. 137 


3O40 


CALL SPRITE<#3 


99 


7. 173. 161 ) 


70 5 . , 


CALL 5PRITEIII4 


9fl 


7.173.169) 


306< 


CALL SPRITE (#5 


'.7 


9.94.99. ttt. 


1.99 


K7.37.9.6S.99) 








CALL SPR1TE<*8 


:s 


3,46. 157.11 



30. 157. NIO. 38,3. 14. 157) 

30B0 CALL SPftITE(»l 1. 38.B.90. 179.H12. 38 
6.90. 191. Ill 3.3.6.8.90, 203. HI 4. 38, 8.90. 21! 
,#20.36, 15. ZOO. 101 
;090 SUBEND 

3100 SUB REGLES 

3110 DI3PLAV AT (9. 2> SIZEfBI : "REGARDEZ" 

; DISPLAY AT ( 1 1 . 1 )SIZE ( 10) I "LES REGLES" 

:: DISPLAY AT ( 1 3. 4 > S I ZE ( 3) : "SUP" 

3120 DISPLAY AT f IS. 3) S I ZE !5) : "HGBDG" t: 

DISPLAY AT< 16.3)SIZE<6) : "GICIEL" 

3130 FOR 1 = 1 1Q IOO0 :: NEXT I 



3140 DISPLAY AT (9, T> SI ZE (S) : " " :: DISPLA 

Y ATlll, I)SIZE(IO) : " " :: DISPLAY AT(13.4 

)S1ZE!3):"" 

3150 FOR DW=15 TO 16 :: DISPLAY ATI0W.3J 

SIZE16) ! "" : s NEXT DW 

3160 SUBEND 

:i i<> htM *••■•>•**• 

3180 REM "LOMPTEUR" 

3190 REM •»••»••••• 

32O0 SUB COMPTEUR 

3210 CALL VCHAR< 1.3. 109.216) : : FOR 1=2 T 

7:: CALL COLOR 1 1 . 2. 5) : : NEXT I 



3220 


DISPLAY AT(2, 1)SIZE<6>: "CREDIT' 


7230 


DISPLAY AT (4. 1 1SIZE (4) : "BALL- 


3240 


DISPLAY ATC6. 1)SIZE(1):"I" 


3250 


DISPLAY ATU6. 1 >SIZE13) : "BONUS' 


S260 
S270 

szao 

7290 
3300 


SUBEND 


REM .MU5IQUE. 


SUB MUSI DUE 


3310 


CALL SQUND<50. 147.0) :i CALL SOL 


a . ; : 


.0):: CALL S0UND(400. 147.4) 


3320 


SUBEND 



FAST BOOT MAKER 



*(**■£-? HALRLfl 



Vous vous etes souvent plaint de la lenteur du systeme 
d' exploitation. Void un programme qui vous permet 
daccelerer considerablement la vitesse de charge- 
ment. 

Frederic MUTTER 

Mode d'emploi : 

Tapez les listings 1. 2, et 3 en les sauvegardant respective menl 
sous tes noms FASTBOOT MAKER. BOOT et BOOT 1. Les lis- 
tings 2 et 3 sont accompagnes de leur venficateur (HEX-CHECK) 
Pour faire demarrer le programme, taper RUN FASTBOOT MAKER 

Option 1 : Ccee une disquette FASTBOOT en demandant un fichier 
contenant une image de presentation pour le lancement. II peut y 



etre inscrit par exemple 'Tapez sur la barre d'espace pour conti 
nuer", ou A Aventure P Pac-man. etc... 

Option 2 : Met sur la disquette FASTBOOT les fichiers binatres (uni- 
quement). II faut pour cela donner Tadresse de depart en decimal. 
Cette adresse est trouvee de la facon suivante ; BLOAO nom du 
programme et PRINT PEEK (43634)+ PEEK(43635)* 256 
Option 3 : Effectue le catalogue de la disquette FASTBOOT. el per- 
met de reprendre ses fichiers sous DOS 3.3 normal. Le catalogue 
est presente de la facon suivante 

Numero du programme Touche correspondante Longueur, Piste et 
Secteur 

Pour reprendre les fichiers. taper le numero correspondant el le pro- 
gramme demandera aiors sous quel nom vous desirez le sauvegar- 
der. 

Option 4 : Fait le catalogue dune disquette normale sous DOS 3.3 
Option 5 : Quirte le programme. 



LISTING I 



5 REM FASTBOOT MAKER V3.H0198 

5 PAR MUTTER FREDERIC 
20 TEXT : HOME : INVERSE : PRINT 

"FASTBOOT MAKER PAR MUTTER " 

(OB5-PARIS-I': NORMAL : POKE 

40284,102: POKE 40287,213: ONERR 
GOTO 430 
30 D* = CHR* <13) ♦ CHR* (4>: IF 
PEEK (768) < > 76 OR PEEK 

<771) < > 74 THEN PRINT D* 

! 'BLOAO RUTS' 
40 VTAB 7: PRINT 'DCreation d' 

une disquette FAST BOOT" 

50 PRINT : PRINT •2>Hiltri un f 
ichier binaire en. FAST BOOT" 

40 PRINT : PRINT '3)Catalogue d 
e la disquette FAST BOOT' 

70 PRINT 1 PRINT "4>Catalogue d 
• la disquette NORMALE." 

80 PRINT : PRINT "5>Fin du prog 

rami 1 

90 HTA8 12: VTAB 21: PRINT "Vot 

re choiK ?" i : GET A*: POKE 3 

4 ,1 
100 ON UAL (A«) GOTO 120,290,4 

70,420,440 
110 GOTO 90 
120 HOME : VTAB 12: PRINT ' PAT 

IENCE ! ! ! JE CHARGE MES FICH 

IERS" 
130 PRINT M; "BLOAO BOOT ,A«40 

00": PRINT D*"BLOAD BOOT I ,A 

•4100' 
140 HOME : VTAB 12: PRINT " Ou 

elle sera 1'image du FAST BO 

OT": VTAB 17: HTAB 2: INPUT 

"Nom de 1 ' image :" ;A* 
150 HGR2 : PRINT D*;'BLOA0 ' ;A* 

i",A»4000' 
140 DATA 149,221,140,255,89,0,9 

5,153,0,95,134,192,255,208,2 

45,204,88,113,204,91 ,113,174 

,91,113,224,43,208,230,140,4 

3,94 
170 FOR I = 29010 TO 29040: READ 

A: POKE I, A: NEXT I 
180 GET AS: TEXT : POKE 34,1: HOME 

: VTAB 12: PRINT "Mettez une 
disquette VIERGE dans le 

lecteur et appurez sur une 
touche " ; : GET A» 
190 CALL 2901 0: FOR I = 12275 TO 

12279: POKE 1*4, PEEK (II: 
POKE I » B, PEEK <I>: NEXT 

I 
200 HOME : VTAB 12: HTAB 8: PRINT 

•INITIALISATION EN COURS" : ONERR 
GOTO 220 
210 CALL 42319 
220 HOME : VTAB 12: HTAB 9: INVERSE 

: PRINT "ECR1TURE DU FAST BO 

OT": NORMAL : PRINT D*;'BSAV 

E FASTBOOT PAR MUTTER, A*400 , 

L50": ONERR GOTO 430 
230 TR = 0:ST = 0:DR = 2:P1 - 94 

:P2 = 97: G0SU6 440 
240 PR = 0:ST = 10:DR = 2:P1 = 9 

7:P2 ■ 102: SOSUB 440 
250 TR = 1:ST * 0:DR » 2:P! ■ 44 

:P2 = 94: GOSUB 440 
240 TR » 0:ST =■ 9:DR - liPI « 49 

:P2 ■ 50: GOSUB 440 
270 FOR I =■ I TO 10: POKE 12747 

» I , I : NEXT I 
280 TR = 0:ST = 9:DR = 2:P1 = 49 

:P2 = 50: GOSUB 440: RUN 
290 HOME : VTAB 5: INPUT 'Nom d 

u programme :';A* 
300 PRINT D*;'BLOAD ";A*;',A*16 



00" :X = PEEK <43417): IF PEEK 
(43414) - THEN X = X - 1 

310 VTAB 10: INPUT "adresse de 
depart (dec):';A 

320 PRINT : INPUT "Piste:";B: INPUT 
•Secteur:' ;C: IF B < 3 DR C < 
OR C > 17 GOTO 320 

330 PRINT : PRINT "touche pour 
le charger :";: GET F«: PRINT 
FS: PRINT "classeiaent (1 a I 
0):"i: GET 6: PRINT G 

340 VTAB 17: HTAB 12: PRINT "C 
est bon ?";: GET X«: IF X* = 
"0" THEN 340 

350 RUN 

340 HOME : VTAB 12: PRINT "Mett 
ez votre disquette dans le ) 
ecteur et defoncez une touc 
he";: GET C* 

370 TR = B:ST = C:DR = 2:PI = 22 
:P2 - X » 23: GOSUB 440 

380 TR » 0:ST - 9:DR » 1:P1 = 49 
:P2 = 50: GOSUB 440 

390 POKE 12543 » G,X t 1: POKE 
12575 » G.B: POKE 12407 ♦ G, 
C: POKE 12471 ♦ G,A / 256: POKE 
12439 . G,A - 254 • PEEK <l 
2471 * G): POKE 12735 ♦ G,A / 
254: POKE 12703 » G,A - 254 « 

PEEK (12735 * G) : POKE 1274 
7 • G, ASC (F»> t 128 

400 TR - 0:ST - 9:DR - 2:P1 - 49 
:P2 * 50: GOSUB 440 

410 A - INT <X / 14):C = C ♦ X - 
A « 14: HOME : VTAB 12: PRINT 
'Le prochain programme doit 
etre mis sur": HTAB 8: PRINT 
"la piste:"}A ♦ 8j" / secteu 
r:';C « 1 : GET A«: RUN 

420 HOME : VTAB 12: PRINT 'Inse 
rez uotre disquette dans le 
lecteur';: GET A»: PRINT M; 
"CATALOG": PRINT 'une touche 
pour revenir au menu:';: GET 
At: RUN 

430 FOR I = 1 TO I2:A = PEEK ( 

49200) ♦ 2: NEXT 1: PRINT CHR* 
<7>: RUN 

440 HOME : VTAB 12: PRINT " (es 
c>:FIN (autre touche):BOOT 
ER:";: GET A«: IF A« = CHR« 
(27) THEN HOME : END 

450 CALL 50488 

440 POKE 0,TR: POKE 1,ST: POKE 

2,DR: POKE 3.P1: POKE 4,P2: CALL 
771 : RETURN 

470 HOME : VTAB 12: PRINT " Met 
tez uotre disquette dans le 
lecteur": VTA8 17: PRINT " D 
efoncez une touche:";: GET A 
♦:TR = 0:ST = 9:DR - 1 :P1 = 
49:P2 = 50: GOSUB 440 

480 FOR I = 1 TO 10: IF PEEK ( 
12747 • I) ( > I THEN Aid) 

- CHR* ( PEEK (12747 * I) - 
!28>:B(!> = PEEK (12471 t I 
) » 254 ♦ PEEK (12639 + I): 
C(I> = PEEK (12407 < I):D(I 
) = PEEK (12575 ♦ I):E(I> = 

PEEK (12543 ♦ I) * 256: NEXT 
I 

490 HOME : VTAB 6: FOR A = 1 TO 

I - 1: INVERSE : PRINT A;: NORMAL 
: HTAB 3: PRINT ": TC:"A$(A) 
;: HTAB 10: PRINT "A:"B(A);: 
HTAB 18: PRINT "L:"E(A);i HTAB 
27: PRINT 'T.-'D(A);: HTAB 33 
: PRINT "S:"C<A>: NEXT A 

500 HTAB 12: PRINT "Votre numer 
o?": PRINT : PRINT "Ou autre 
touche pour le menu:';: GET 
A:P = E(A) 

510 TR = D(A):ST = C(A):DR =■ 1 :P 

1 = 22:P2 = 23 t P / 254: GOSUB 
440 

520 VTAB 17: HTAB 1: CALL - 95 
8: PRINT : INPUT 'Nom du pro 




__LE GLOUPE HECTOR 

La ravissante gloupette, prisonniere du hideux "grande / Ai I CC/*Dl 1/ (I I (?C ' 
gamelle", espere en votre secours, ne la decevez ( f\ Ot ^L/UUU pvC> # 
oas... — — ■ — 



Mode d'emploi : 

Les regies sont incluses dans le programme. 



Fabrice BAILLY 



A suivre ; 

En raison de la longueur 
inhabituelle du listing, 
nous passerons ce pro- 
gramme en deux lots 



100 


WIPE 


] 10 


PQKES.FF10, 1 


120 


G0SUB4470 


130 


XZ-0 


L40 


WIPE 


130 


LM»lsRE-OiM 



15iFA=0j Y2=26:FB-l:SC-0: VIE=3 
iV=OtGH=0 

160 ' tt**t**ttt!tt ■*>(*»* »•«•«*> 

170 '** CARACTERES GRAPHIQUES It 
ieO Illilll.IIMiillltilllllnj 

190 DATA 8,8 

200 DATA O, 7, 31. 63, 63, 127, 127,127 

210 DATA 0,240,248,248, 184, 192.224,240 

220 DATA 99.93,87,91,47,31,7,3 

230 DATA 224,224.172,252,120,144,224,128 

240 DATA 4, 1 1, U, 27,27, 61, 62, 63 

250 DATA 192,96,96, 140,254,234, 12,224 

260 DATA 63,31,15,15,60,56,62,30 

270 DATA 240,224, 192,224,224, 108, 252,248 

280 DATA 63,31,223,255,240,96,112,56 

290 DATA 240,224,240,241,39,31,14,12 

300 DATA 112,112,112,112,112,112,112,112 

310 DATA 0,60,126,126,126,126,60,0 

320 DATA 0,233,127,0,0,0,0,0 

330 DATA 0,233,234,0,0,0,0,0 

340 DATA 233, 235, 235, 255, 233, 235. 253, 235 

330 DATA 63.223,233,235,224,112,0,0 

360 DATA 246,231,233,235,6,0,0,0 

370 DATA 0,1,3,3,7,7,15,15 

380 DATA 127,127,63,63,31,31.15,15 

390 DATA 254 , 254 , 252 , 252 , 248 , 248 , 240 , 240 

400 DATA 7,7,3,3,1,1,0,0 

410 DATA 224,224,192,192,128,128,0,0 

420 DATA 8,24,60,94,233,63,127,15 

430 DATA 15,31,63, 126,248,233,255,253 

440 DATA 248,239, 158,60, 120. 192.240,232 

430 DATA 3,0,0,0,0,0,0,0 

460 DATA 233.255,63,15,10,27,42,0 

470 DATA 252,240,224,128,0,0,128,0 

480 DATA B, 24, 60, 94, 127,63, 127, 15 

490 DATA 0,0,0,0,255,233,233,255 

300 DATA 0.0,0,0,224,248,252,244 

510 DATA 3,1,1,2,4,8,8,0 

320 DATA 233,255. 193, 128, 12B.64.32.0 

330 DATA 244.244,228,228,82,81. 144.0 

340 DATA 0,0,0,0,32,112,120,232 

350 DATA 0,1,1,3,31,63,127,253 

360 DATA 234. 233, 235, 235, 233, 253, 233, 233 

370 DATA 0,128. 128, 192,240,248,232,254 

580 RESTORE190 

590 FOR I-&F9C1 TQ4F9C1+31B 

600 READ V 

610 POKE I.V 

620 NEXT 

630 POKE S.3FE3.S.C1 

640 POKE 1.3FE4.J.F9 

630 IF XZ-0 THEN 60SUB2650iG0SUB3090 

660 &OT0700 

670 INPUT A 

6B0 CLSiOUTPUTCHR*(A> , 100, 100, 1 

690 G0T0670 

700 NI-2 

710 CLS 

720 ' umiliuui 

730 ' •• TABLEAU )• 

740 ' niiiiiiimi 

730 COLOR 0,4,1,7 

760 WIPE 

770 FOR 1-136 TO 72 STEP -2i J-J+l iPLOTO, I ,J, 1 ,2iPL 
0T0,I-l,J,l,2iNEXTI 

780 REST0RE790IF0R 1-71 TO 63 STEP -1 jREADJi PLOT O 
. I. J. 1 ,2; NEXT I 

790 DATA 32,32,32,31,31,30,29 

800 RESTOREBlOiFOR 1-63 TO 17 STEP -liREAD JiPLOT 
0,I+l,J,l,3iNEXT I 

810 DATA 20,20,21,21,21,22,22,23,23,23,24,24,24,24 
, 25, 25, 25, 23, 26, 26, 26, 26, 27, 27, 27, 27, 27, 27, 2B, 28, 28, 
28, 28, 27, 27, 26, 23, 23, 24, 23, 23, 22, 20, IB, 17, 16, 14 

820 OUTPUTCHR* (203) ,0, 104, 1 

830 OUTPUTCHR* (203), 7, 88, U OUTPUTCHR* (206) ,16,99,2 

840 0UTPUTCHR*C203) ,15,72,1 

B50 OUTPUTCHR* (204) ,4,32, 1 iOUTPUTCHR* (205) , 12,32. 1 
iPL0T6,49, I, 19,ltPL0T17,49, 1, 19, 1 :PL0T7,49, 1 I , l.lsFO 
RI-32 TO 49iPL0T 7, I , 10, 1 ,0i NEXT 

B60 PLOT 0,18,240,18,1 

B70 PLOT 0,219,240,60,1 

BBO OUTPUT-LE PAUVRE [! HA' HA' ", 40, 200,0 

' IIJEUIt 
' >•>•>>( 

A*-INSTR«(1) 

PAUSE 1 

IF FA-0 THEN PLOT 38,100,16,82,0 

IF FA-0 THEN OUTPUTCHR* (200) , 47, 26, 3i OUTPUTCHR 

,55,26,3 

IF FA-0 THEN OUTPUTCHR* (200) , 47, 26, Oi OUTPUTCHR 

,55,26,0 



890 

900 

910 

920 

930 

940 

930 
»<20l) 

960 
*(201) 

970 IF FA-0 THEN OUTPUTCHR* ( 192) , 47, 50, 3iOUTPUTCHR 
•(193) ,53,30,3 

9B0 IF FA-0 THEN OUTPUTCHR* ( 194) . 47, 42, 1 iOUTPUTCHR 
•(195) ,55,42, 1 

990 IF FA-0 THEN OUTPUTCHR* ( 196) , 47, 34, 1 j DUTPUTCHR 
*<197> ,55,34, I 

1000 IF FA-0 THEN OUTPUTCHR* ( 198) , 47, 26, 3: OUTPUTCH 
R»<199) ,55,26,3 

1010 IFFA-1THEN0UTPUTCHR*(192> , 39, Y2+24, Oi OUTPUTCHR 
*(193) , 47, Y2+24,0i OUTPUTCHR* (194) , 39, Y2+ 16, Ot OUTPUTC 




HR* (193) . 47. Y2+16, O: OUTPUTCHR* I 196) . 39. Y2+B, O: OUTPUT 
CHR*(197) .47, Y2+B.0: OUTPUTCHR* (207) . 39 , Y2, O: OUTFUTCH 
R*(208) .47, Y2.0 
1020 IF FA=1 AND FB=1 THEN Y2-Y2+6 

1030 IF FA"=1 AND FB=1 AND RE>900 AND RE v 1500 THEN 
Y2=Y2-4 
1040 IF FA=1 AND FB=0 THEN Y2-Y2-6 

1050 IF FA-1 AND FB=0 AND RE;-900 AND REC1500 THEN 
Y2-Y2+4 

1060 IFFA-1THEN0UTPUTCHR*! 192) , 47, Y2+24, 3: OUTPUTCHR 
*(193) , 53, Y2+24,3t OUTPUTCHR* (194) ,47,Y2+16, 1 l OUTPUTC 
HR*(19S) ,55,Y2*16, ll OUTPUTCHR* (196) , 47.Y2+B, Is OUTPUT 
CHR»(197) ,55, Y2*8, 1 (OUTPUTCHR* (207) ,47, Y2, 3l OUTPUTCH 
R*(20B) ,33,Y2,3 
1070 IF FA-1 THEN IF Y2->44 THEN FB-0 
1080 IF Y2-<28 AND FA-1 AND V-0 THEN SC-SC+10 
1090 IF FA-1 AND FB-0 THEN IF Y2-<28 THEN FA=0:BA= 
1 5i Y2-26i LM- 1 1 FB- 1 1 B0T0940i V-0 

1100 IF FA-0 THEN OUTPUTCHR** 19B) , 47,26, 3:0UTPUTCH 
RSI199) ,35,26,3 
1110 PI-POINT (63, 26) 

1120 IF RE<300 AND FA-0 THEN IF Pl-2 THEN G0SUB255 

1130 P2-P0INT(62,Y2-6) 

1140 IF FA-1 AND RE<313 AND FB-0 THEN IF P2-2 DR P 
5-2 THEN G0SUB2550 
1150 P3-P0INT(47,Y2) 

1160 IF FA-1 AND RE<315 THEN IF P3-2 THEN G0SU8255 
O 

1170 IF FA-1 AND RE<315 THEN IF P4-2 THEN G0SUB255 
O 
1180 P4-P01NT(60,14) 

1190 IF RE>313 AND RE<900 AND FA-0 AND V-0 THEN IF 
P3-1 THEN B0BUB2350 
1 200 PS-PO INT ( 56 , Y2-B > 

1210 IF RE>313 AND RE<900 AND FA-1 AND V-0 THEN IF 
P3-1 THEN &OSUB2550 

1220 IF RE>315 AND RE<900 THEN IF P5-3 THEN V=0 
1230 P6-P0INT(68, 14) 

1240 IF RE>600 AND RE<900 AND FA-0 THEN IF P6»2 TH 
EN G0SUB255O 
1230 P7-P0INT(35,Y2-12) 

1260 IF RE>600 AND RE<900 THEN IF P7-2 THEN GQSUB2 
530 
1270 PB-POINTI61, Y2-5) 

1280 IF V-0 AND RE>900 AND RE< 1500 AND FA-l THEN I 
F PB-2 THEN G0SUB2550 
1290 P9-P0INT<49,Y2-6) 

1300 IF V-O AND RB>900 AND RE<1SOO AND FA-1 THEN I 
F P9-2 THEN G0SUB2330 

1310 IF V-0 AND RE>90O AND RE < 1300 AND FA-0 THEN I 
F Pl-2 THEN G0SUB2550 
1320 P10-P0INT<61,27> 

1330 IF RE>900 AND RE < 1300 THEN IF P10-0 THEN V-0 
1340 PI 1 -POINT (64, 21) 

1350 IF FA-0 AND V-0 AND REM200 THEN IF PU-2 THE 
N G0SUB2330 
1360 IF FA-0 THEN IF Pll-0 THEN V-0 
1370 H-M+liRE-RE+1 
1380 PLOT 240, 220.NH4, 220,0 

1390 IF RE>300 AND RE RE<600 THEN PLOT 240,220,6,2 
0,3:GDT01480 
J400 A-INT (RND(10,120> ) l PLOT 240, 220, I . A, 3 
1410 A-INT (RNDUO, 120) ) t PLOT 241 . 220, 1 , A, 3 
1420 A-INT (RNDI10.120) ) i PLOT 242,220, 1 , A, 3 
A-INT (RNDUO, 120) ) i PLOT 243, 220, 1 , A, 3 
A-INT (RND< 10, 120)11 PLOT 244, 220, 1 , A, 3 
A-INT (RNDUO, 120) ) iPLOT 245,220, 1 , A, 3 
A-INT (RND( 10. 120) ) i PLOT 246.220, 1 . A, 3 
A-INT (RNDUO, 120)) iPLOT 247, 220, 1 , A, 3 
1480 OUTPUTCHR* (206) ,240,227,0 
1490 OUTPUTCHR* < 206) , 240, 26, 
OUTPUTCHR* (206) .240, 18,3 
OUTPUTCHR* (206) , 240, 10, 3 
OUTPUTCHR* (206) ,249, 1,0 
OUTPUT-SCOREi ",30,230,0 
OUTPUTSC, 60, 230, 

IF SOI THEN OUTPUTSC-10, 60, 230,0 
OUTPUT-VIE(S) :", 140,230,0 

OUTPUTVIE, 180,230, Of OUTPUTVIE* 1, 180,230,0 
SCROLL NI 

OUTPUT " SCORE i ",30,230, 1 
OUTPUTSC, 60, 230, 1 
1610 OUTPUT" VIE <S) i ",140,230, t 
1620 OUTPUTVIE, 180,230, 1 
1630 IF RE>600 AND RE<900 THEN LM-2 
IF RE>900 AND RE<1200 THEN LM-3 
IF REM200 AND RE<1500 THEN LM-4 
IF RE>1500 AND RE< 1B00 THEN LM-5 
IF M-BA and LM-1 THEN G0SUB1B20i M=0 
IF M-BA AND LM-3 THEN G0SUB2120 
IF M*=BA AND LM-5 THEN GOSUB23B0 
IF LM-2 AND RE<600 THEN IF M-13 THEN M-0 
IF M-BA AND LM-2 THEN G05UB20201 M-O 
IF M-BA AND LM-4 THEN G0SUB2250 
IF RE-M800 THEN RE-0:GH-1 
IF M>32 THEN M-0 

IF RE-1B00 AND GH- 1 THEN G0SUB4S30 
IF REI300 AND RE<305 OR REJ320 AND RE. 325 OR 
RE-340 AND RE;343 OR RE>360 AND RE<365 OR RE>3B0 AND 
RE 385 THEN G0SUB1960 

1770 IF RE>400 AND RE< 405 OR RE>420 AND RE<425 OR 
RE-440 AND RE:445 OR RE 460 AND RE<465 OR RE>480 AND 
RE- 485 THEN G0SUB1960 

1780 IF RE/500 AND RE 503 OR RE 520 AND REr525 OR 
RE-540 AND RE 545 OR RE : 560 AND RE : 565 OR RE .'5B0 AND 
RE 585 THEN G05UB1960 



1 430 

144 
1430 
1 46<-i 

1470 



1 500 
1310 
1520 
1330 
1940 

1550 

1 560 

1570 

! 380 
1390 

1 600 



164 

l 630 

1 6 tO 

1670 

1 660 
1690 
1 700 
1710 
1720 
1730 
1740 
1 750 
1760 



1790 


IF PEEK (24529) =32 THEN G0SUB2490 


1B00 


GOT0940 


1R1 1 


-*******t***t**i 


1820 


■«»tOBSTACLESH» 


1B30 


tttttlllttttttt 


1840 


- tttttttxtttt 


1850 


"<»« 1 er *$t 


I860 


"i.mt.n. 


1870 


COLOR 0.4,2,7 


1880 


OUTPUTCHR* (209) . 197.26.2 



1910 
1920 
I 930 

1940 
1930 
I960 

1970 
I960 
1990 
2000 
2010 
2020 
2030 
2040 
2050 

19,2 
2060 

11,2 
2070 
2080 
2090 
2100 



OUTPUTCHR* 1202) .201,3 

M=G 

BA=INT (RNDiB. 13> > 

RETURN 

' imniiriii 



' ** 



«*! 



2140 

2 150 
2160 

:i-':' 

2180 
2190 
2200 

2210 
2220 
2230 
2240 
2250 
2260 
2270 
22B0 
2290 
2300 
2310 
2320 
2330 
2340 
2350 
2360 
2370 
23BO 
2390 
2400 
2410 

24 20 
2430 
2440 
2450 
2460 
2470 
248<:> 
2490 
2500 

25 10 
2520 
257-':' 
2540 
2550 
2560 
2570 
2580 

2590 

2600 
2610 
2620 
2630 
2640 
2650 
2660 
2670 
26B0 
2690 
2700 

*2710 

2720 
, 1 

2770 

2740 
20.3 

2750 
12, 1 

2760 
04, 1 

2770 
96,: 



OUTPUTCHR* (206), 200, 18, 1 

LM-0 

RETURN 

' IIIIUMttll 

"*** 3 er <ii 

' **(*>***>**■ 

COLOR O. 4.0.7 

OUTPUTCHR* (210) ,210, 19, 2i OUTPUTCHR* 121 1 > ,21B, 

OUTPUTCHR* (212) ,210, I 1 , 2t OUTPUTCHR* (213) ,218. 

BA-INT (RND(8, 13) ) 



■»*« 4 sr *** 
'imn.iiu 
COLOR 0,4.2,7 
OUTPUTCHR* (214) .210,33,2 
OUTPUTCHR* (215) ,218,33,2 
OUTPUTCHR* 1216). 226. 33. 2 
0UTPUTCHR*(217) ,210,25.2 
OUTPUTCHR*! 21 B), 218,25. 2 
OUTPUTCHR* (219), 226 ,25,2 
BA=INT (RND126.32)) 
M=0 
RETURN 

' tuiint.ui 
'**• 5 er *•* 
- ttttkttttttt 

COLOR 0.4. 1.7 
OUTPUTCHR* (220) ,210,33,2 
OUTPUTCHR* (221) .218.33,2 
OUTPUTCHR* (222) , 226, 33, 2 
OUTPUTCHR* (223) .210.25.2 
OUTPUTCHR* (224 > , 218. 23. 2 
□UTPUTCHR*(223) ,226,25,2 
BA-INT (RND (26.32) ) 

RETURN 

' *«****>*>ltl 

**** 6 cr *•) 

' ttUIMMtll 

COLOR 0,4,3,7 
OUTPUTCHR* ( 226 ) , 2 1 B , 34 , 2 
OUTPUTCHR* (227) .210,26,2 

OUTPUTCHR* (228) .218.26,2 
OUTPUTCHR* (229) .224.26.2 



M=0 

BA=1NT(RND<8, 13> ) 

RETURN 

' Ititiiiiitiu * 

'*>* SAUT >•> 

- ittttttltlftt 

FA-1 

POKE 24529,0 

PLOT 38,100, 16.B2.0 

RETURN 

'*** UNE VIE EN MOINS *** 

OUTPUT"ET UNE VIE EN MOINS' UNE ' " , 60, 218, O 

PAUSE 3 

OUTPUT"ET UNE VIE EN MOINS! UNE '". 60, 218, Z 

VIE-VIE-1 

IF VIE=<0 THEN WIPE: GDT033B0 

RETURN 

PRINT"VOTRE SCDRE'^SC 

' IllllltttllttltliUI 

' »»* PRESENTATION >** 

■ iiiMttttuiuiiiiii 

WIPE 

COLOR 0,4,2.7 

FOR X=>0 TO 240 STEP 24 

OUTPUTCHR* ( 192) , X, 40, 3: OUTPUTCHR* I 193) , X*B, 40 

OUTPUTCHR* ( 194), X, 32, 1 : OUTPUTCHR* ( 195) , X*S 

OUTPUTCHR* ( 196) , X, 24, 1: OUTPUTCHR* 1 197) , X*8,24 

OUTPUTCHR* (19B),X, 1 6, 3: OUTPUTCHR* { 199) , X+8, 16 

OUTPUTCHR* (192) . X, 220, 3: OUTPUTCHR* ( 193) , X*8, 2 

OUTPUTCHR* ( 194) ,X, 212, 1 iOUTPUTCHR* ( 195) . X* 

OUTPUTCHR* (196) .X.204, 1 : OUTPUTCHR* ( 197) , X*B, 2 

OUTPUTCHR* (19B) . X, 196, 3: OUTPUTCHR* ( 199) . X»8, 1 

NEXT X 

FOR Y=60 TO 160 STEP 45 

OUTPUTCHR* (192) , 0. Y+24 . 3: OUTPUTCHR* (193) , 8, Y* 

OUTPUTCHR* i 194) ,0, Y + 16, 1 1 OUTPUTCHR* ( 195) .8. Y + 

OUTPUTCHR* ( 196) ,0, Y+8, 1 : OUTPUTCHR* ( 197) ,B.Y*8 



OUTPUTCHR*! 194) ,216. Y+16. 1 : OUTPUTCHR* ( 195 



Suite page 26 



_SOS INVASION 

Damned ! les OVNIS atlaquent la ville, ne perdez sur- 
tout pas de temps. Tel Guy L'eclair, prenez place a 
bord de votre Vic a reacteur et repoussez ces rascals 
au fin fond de I'espace. 

Alexandre BROUCHOUD. 

SUITE DU N 78 

5040 PDKEE2.31 PQKEE2+C0 ■ 4 :HEXT : POKE36875.0 RETURN 

5050 FORPl»220TOV3+;'0gSTEP-l : POKEE3.32-E3*E3+22POKE36375.M:FORU=1TO10 NEXT 

5060 P0KEE3,3] P0KEE3+C0.5 NEXT P0KE36375, RETURN 

5070 F0Rft=228T0V4+2WSTEP-l ; P0KEE4 . 32 ■ E4=E4+22 P0KE36875 , M : F0PU=! TO10 : NEXT 

5080 P0KEE4 , 38 i P0KEE4+C0, 8 : NEXT : P0KE36875 ■ ; RETURN 

5100 XI»X4 • FOR J= 1 50TO 1 80 : P0KE36876 , J NEXT : P0KE36876 ■ 

5110 FORQ=XITOfi P=7630+Q+V4#22 : POKEP. 34 POKEP+CO. 2 

5126 IFPEEKtP+1 >=27THENGOTO5200 

5140 NEXT 

5130 FQR«"XITOfl P=7680+Q+V4#22 POKEP. 32 NEXT POKE36876.0 ■ RETURN 

5290 VIE-VIE-1 

5210 POKEV-1 . 35 : POKEV+CO-l , 7 ■ POKE36877.220 

5228 F0RL=15T07STEP-1 

5230 P0KE36878.L FOPM=1TO300 : NEXT NEXT P0KE36377.8 P0KE36379, 15 

5240 IFKK=1THENKK=0 RETURN 

5250 OOTO5150 

5300 SC=SC+10@ POKE36877.220 

5310 F0RL=15T07STEP-1 

5320 P0KE36878.L FORM"1TO150^ NEXT NEXT: PCiKE36877.0POKE36e78. 15 

5330 F0R0=flflT01STEP-l PP°7680+G+**22 POKEPP, 32 NEXT RETURN 

5509 SOSC+75 : P0KE36877. 228 ■ HT=0 ■ BT=21 

5518 F0RL-13TQ78TEP-I 

5528 P0KE36875.L FORM* 1 TO 150; NEXT NEXT : P0KE36877. i P0KE36878. 15 

5530 F0RGG=BTTQ7STEP-1 :RT=RT+1 : EE=7680+RT+GQ*22 POKEEE, 32 ■ NEXT ■ RETURN 

5600 VIE=VIE-1 'POKES, 35 : POKEZ+CO,7-POKE36377,220 

561 FORL= 1 3T07STEP-1 P0KE36878 • L FORM* t TO300 NEXT ■ NEXT : P0KE36877, ■ P0KE36878 . 1 5 

5620 I FZ=8 1 64THENP0KEZ . 26 : POKEZ*CO , 6 GOTO5640 

5630 P0KEZ,3POKEZ+C0j6 

5640 RETURN 

6000 E4=E4-1 

6010 P0KEE4,34 P0KEE4+CQ.2 

6020 1FPEEK<E4-1 :'=22THENP0KEE4-1 , 35 P0KEE4+C0-1 , 2 ■ PGKEE4, 35 : P0KEE4+C0, 7 - GOTD8580 

6030 COTO6000 

7900 IFF=1THENDE=Y2+1 : F=0 2=3164 DD=X2-1: GOTO7020 

7010 DE=V3+1 DD=X3- 1:2=8 174 

7020 P0KE36876 , 235 POKE36876 , F0R0=DET022 ! D"?680+DD+Q*22 : POKED • 40 : POKED+l" n , 

7931 FORU=1TO20 NEXT 

7040 POKED, 32 NEXT GOSUB5600 : RETURN 

8500 P0KEE4-23 , 35 : P0KEE4-23+C0, 7 : P0KEE4-2+C0 . 7 ■ P0KEE4-2 , 35 : P0KEE4-24 , 35 : PGKEE4-2 
4+CO-7 

8501 P0KEE4-45, 35 P0KEE4-45+C0. 7 P0KEE4-24, 35 : P0KEE4-24+C0, 7 

3302 P0KEE4-48 . 35 ■ P0KEE4+C0-48, 7 ■ POKEE4-47 , 35 P0KEE4+CQ-47 . 7 POKEE4-46- 35 : P0KEE4 

-46+00,2 

8510 P0KE36877 , 220 : FORL= 1 5TO0STEP- 1 ■ P0KE36878 . L 

8520 FORH=liTO300 NEXT : NEXT : POKE36877.0 

8330 FQRU=1TO50:PRINT"*WOIHDOIBH^^ 

8535 FORUQ=1TO100:NEXT 

8340 w^7"vmmmmmjwD»www>*+ Anmmi^/ .niMmwYkri*-- 

3545 FORUQ=1TG100NEXT 

8550 NEXT 

9000 P0KE36878. 15 FORL=148TO220STEP. 7 P0KE36876, L ! NEXT FQRL=123TO200:PQKE36376.L 

NEXT 
90U3 F0RL=288T0i28STEP-l 
9020 PQKE36376 , L = NEXT POKE36S76, @ 
9038 GO8UE9400 

9040 PRINT"*VOUS RVEZ FRILLI fl VOTRE MISSION!" 
9058 GOTO9500 
90? 1 END 

9100 PRINT'TJ* ■"; PRINT"* Si SOS INVASION :» ■" .. 

9101 PRINT" S ■" 

9185 ppiNT"»*MitMiar ^ii»»H»»>»»»r t 

9110 PRINT "IMtKMEl _ _ l»»»»»»ll *i Ml " 

9111 L*=K*+Jt+H*:E=LENa$)-F=22^U2=l 
9120 PR 1 1 IT "»»M WHS ~ - !»»»»! 
9130 PRINT"l»»M*ia ■ S >»»M*I 







'140 PP]NT"l«MMia 
9150 PPIHT"»»m»IPtia ■" PRINT"«Mi»Mia 
9160 PPINT">M»Mia ■" 

9165 F0RGG=1T023 IFE=0THENPPINT'"TT3 

9 1 70 ppint" ^mmw$mMf*%iwwn\»- 



PPINT'T]" RETURN 

*" " F0RT=1 T078 : NEXT PRINT ■' namUEUONHMrom 



9138 PRINT" 



9131 IFE"lflNDUZ=ITHENL*»G«*F»+D* ; E=LEN<L*» F=22 UZ=0:OG=1 

9182 U=INT-,RND>1>#30:' + 1 II=U+198 P0KE36375 - FORIW-ITQU NEXT POKE36875.il 

9218 F-F-l IFF=-1THENF=0 E=E-I G0=GG-1 L*=RIGHT*<L*>E) 

9220 PRINTTnB<F)"TTI"LEFT*<L*,00) : P0KE36875/8 

9250 PRINT "eE*IC«MBI!Wi'WwaW»ii»MM»ia V !" F0PT=1T038 NEXT 

9260 NEXT 

9400 POKE368S9.240 : PRINT "TW i"j 

9416 PRINT "M ■ 9 ■", -pRINT-rja »4 SOS INVflSION ^(3 ■", 

9420 PRINT"3 ■ a S n ;-PRINT H Stt H" 

9450 PRINT-VQTRE SCORE ■ a"SC RETURN 

3508 PPINT"UHE RUTPE CO/H>?" 

9510 GETR* IFPt="0"THENCLR G0T01S 

9520 IFR*O"N"THEN5510 

3330 END 

9600 P0KE36373. 15 FORL=1TO180 P0KE36876, INT'RND< I >*123>+123 F0RMMTQ18 : NEXT NEXT 

P0KE36876/8 
3610 G0SUB9400 
9620 PRINT"a3ERflV0!BPRV0!V0US RVEZ REUSSI.VOUS ETES UN BEN! DE L'lNFORMflTIQUEl 

9630 GOTO9580 

3708 END 

1 0605 DFITR6 .9/3.47,127,127, 255 , 255 

18010 DATR0, 0,128,193,231,255.255,255 

1O020 DRTfiO,56, 252,254,254, 255,255,255 

10038 DFITflO, 1,1,3,7, 15,63,255 

1 0O4O DflTfl 128.243. 255. 255, 255 , 255 , 255 , 255 

10050 DflTfl24 ■ 254 . 255,255,255 . 255 ■ 255,255 

10060 DRTflO,8. 123- 192,224,240.248,255 

10070 DflTR.0, 0,0. 2, 7, 15,63,255 

1O0S0 DRTR0.8, 0,0,227, 255,255, 255 

10O90 IiftTRO, 0.0. 70, 255 . 255 , 255, 255 

10100 DHTRO.0. 8, £0,254,254.255,255 

10110 DRTR0, 6, 0,1,2,2,4,3 

10120 DRTR31, 96, 123,0,0,0,8,0 

10138 DRTR254, 1.0,0.0,0,0,0.0,0, 123,64,32, 16,232,163.16,16,32,32,64,64.123,128 

10140 DRTR3.- 3. 3, 3, 3, 3, 3, 3, 223, 162, 226, 162, 162, 225, 225. 225 

10150 DRTfll, 1,1. 1,2, 2, 2, 3, 0,0, 124, 108, 124. 34. 124. 255. 3, 123.91,123.123,127.65,193 

10160 DRTR62.34.42-62,46,62.54,62.225.225, 161,225. 161, 161,225, 161,1.1, 1.1,0,0,0. 



1017O DRTR63,63, 33.255, 0,0,0.0. 135, 153,41.249,25,25,25,25,2,4.4, 104.104,252,42,2 




55 

10130 

10190 

10200 

255,0 

1021O 

10220 
102:?0 
1 0240 
10250 
1026O 
5,255 
10270 

10 "?0 

1 0290 

1 0^00 



PERDV 



DRTR15, 73, 252, 142, 142. 252, 78. 15. 0.8, 3, 7, 255, 7, 3, 0,0 

DRTR0-36, 126,219,255, 102. 182,0,96.43, 156,243, 156,43.96 

DRTR24. 60, 255, 30. 60, 24. 36, 66, 0,8. 0,8, 8,0. 0,0, 1 ,2, 4,8. 16,32,64. 123,0,0,0,0, 

DRTRO, 0.22, 72, 28, 181,71,36,89,36 

DflTR255,12S,12S, 123.128, 128. 128, 128,255,8,0,0,0,0,0,8 

DRTR0. 6, 12,57,207,57,12,6 

DRTR255 . 255, 255 , 255 . 255 . 255, 255 , 255 

DRTR0,0,0,51,126,51,0,0 

DRTR8, 8.0. 8, 0,1, 3, 7. 1,31. 63. 127,255.255.255.255.243,255.255.255,255.255.25 

DRTR8.0. 123, 192,224,240,248.252,15,31,63.63,127,127,254,252 

IIHT0255 ■ 255 255 . 255 ■ 255 . 255 . 3,3, 255 , 255 ■ 255, 255. 255, 255, 248, 243 

DflTfl252. 254. 254. 255 .255- 255, 255. 255. 120. 48, 0.0, 0,0, 0.0 

DRTR3 . 3 ■ 15 ■ 1 5, 3 . 3 ■ 3 • 3, 24:: 243 ■ 254 . 254 . 24 * ■ 24;-: . 243 ■ 24?: . 1 ■", . * , n . fi , . y . Q . 




V PC1SOO 



Suite de la page 3 



378:&0SUB "A":J.^fl! 
0^231.4^1.8050 
3*N:G0SUB "fi": 
vr=A:£t=3J6-*.B!9 
->305*N:GOSUB " 
A":P=n 

379;fl*JJ4.3+12. !90 
7494*N:G0SUB " 
0':Q=fi:fl=231.'i 
'.00055305*N- 
GOSUB ,, ft ,, :R=A 

330: Pi=l?.9+. 616523 
8*N:G0SUB "0'': 
L = 134*C0S B-*-15 
i*COS B+69*C0S 
CC-M3*C0S D+28 
*C0S E+57TC0S 
F 

38i:L=L*49*C0S G-*2 
00*COS H*72* 
COS J+75*C0S K 
M5*C0S P-*179* 
SIN Q^17B*SIN 
R:L=U+W+L^1E5 

382:R^543*SIN fi+15 
^5?SJN 8+2B0* 
SIN CC-^345*SIN 
G+474*S1N F*J6 
27*SJN H+927* 
SIN K*I06*S1N 
p 

383:R=R+3076*COS Q 
:R= 1.00000023* 
tl-El*COS U>+R 
'!E8:fl=LJ GOSUB 
"ft":L^fl:P(0>=L 

385:XS=R*C0S L:v"S= 
R*SIN Li J-^L: 
COSUB l 'P 

390.C=368iB*=''r1E": 
GOSUB "DO": 



GOSUB ,: C":PC1 > 
vj: GOSUB "P 

^00iC=368;B*="«JE": 
GOSUB 'DD": 
GOSUB "C":P<2J 
•=J: GOSUB "P 

4]0:C-=360:Bt="nfi": 
GOSUB "DO": 
GOSUB "C U :P(3) 
=J; GOSUB "P 

'l20:C=360:Bt="JU' , : 
GOSUB ! 'CC": 
GOSUB "C":Pt4J 
=J: GOSUB "P 

'i30:C=360:B*="Sfi": 
GOSUB "CC": 
GOSUB "C":PC5J 
=J: GOSUB "P 

-i40:C=360:8*="UR": 
GOSUB "CC": 
GOSUB "C";Ot6) 
=J: GOSUB "P 

<t50:C=360;B*="NE' : 
GOSUB "CC": 
GOSUB • , C":oc^J 
^J: GOSUB "P 

-160:C=360;B*^"PL": 
GOSUB "00": 
GOSUB "C":Pt8J 
-J : GOSUB "P 

'170:C^360.B*="LU- : 
0=33. 26578 +13. 
1763966*N: 
GOSUB "PTtLL-^P. 
: 0=239. 882-. 05 
2953922*N: 
GOSUB ,! 

4e0:OL=ft:fl=i8.294+ 
13. 064 9924 b*N i 
GOSUB ' , 0":1L=.fl 
:D=LL-LS:p=LL- 



OL 

490:L=LL+6. 28875* 
SIN (1L+.2136* 
SIN <2*f1L> + .65 
83*SIN C2*0>-. 
!855*SJN nS+1, 
274*SJN <,2*D-n 
L> 

500;L=L~. 1143*S1N 
(2*F)+.0588* 
SIN (2*D-2*HLJ 
+.0572*S1N t2* 
D-nL-MS)+.0533 
*SIN C2*D+nL> 

5I0:l_=L+.0459*SIN 
f2*O-nS>+.041* 

sin tnL-ns)~.0 
385*sin <ni_+ns 

i-.034B*SJN D. 
J=l:»(9J=J 

520:GOSUB "P**:C=36 
0:B*="PF":O=Pt 
3)+nt03-P(0): 
GOSUB "fl":PU0 
i-fl:J-fi: GOSUB 
"P 

600!«T=3:' I OR I=0TO 
9: RESTORE "pi" 
^«-"0R J=0TO I: 
READ fi*:NEXT J 

605: RESTORE "p|"i 
POR J=0TO It 
REOD B*:NEXT J 
:FOR J=J+JTO 1 
0:O=ABS tP(] >- 
PU>>.tCW B* 

610! IF 0<=3C0L0R 1 
:etCK;=0*+Bt.K 
=K+i 

615: IF fi<.=31_ET X=( 
Ptl)+P(J>>^2-T 



R:LINE C50*COS 
X, 50*S1N XJ-C4 
0*COS X, 40*SJN 
X):GOTO 680 

620. IF fl>=270N0 0< 
^33C0LOR l:6*t 
k-j=fH+Bt+"30": 
GOSUB "Q":k:=K+ 
MOOIO 700 

630: IF A>=43f>ND 0< 
=47C0L0R 3:Bt< 
>O=04+B*+"45"; 
GOSUB "Q":k:=K+ 
l.GOTO 700 

640. IF 0>=540ND f\< 
^66C0L0R l;0*C 
<>=fi*+B*-*"60": 
GOSUB "Q":<^K+ 
I : GOTO 700 

650: IF A?=B60N0 A< 
=94CDL0R 3^8*<: 
K>=A»+Bi+"90' : 
GOSUB ''G":K=K+ 
I : GOTO 700 

660; IF A>=3 I4AN0 A 
<=126COL0R 1:0 
tCIO=A*+B*+"!2 
■: GOSUB "a-Jlt- 
K+UGOTO 700 

G70: IF A>=133AND A 
<=137C0L0R 3:B 
HK>~A*+B*+"13 
": GOSUB , '0 ,, :k:= 
<*i:GOTO 700 

680: IF AJ=147AN0 A 
<=153C0L0R 1:9 
tCK)=A*+B*+"15 
":GOSUB •■Q-:<= 
<+l:GOTO 700 

690: IF A>=176AND A 
<=184C0L0R 3:8 



t<K>=A*+B*+"18 
":GOSUB "Q":K= 
K + l 

700: NEXT J. 'NEXT ]: 
KK=K- 1 

900:GLCURSOR t0, -I 
07>:TEXT :LF 2 
:CSJZE 1: COLOR 
0: RESTORE "pi" 
iUSING "«#«.«* 
■:FOR K=0TO J0 
:REAO B*:J=PCK 



310:P]=PEEK &78BE 
P2=PEEK 8.78BF 
A=INI U'30): 
GOSUB "Z"!C=3I 
:0=j: GOSUB "A 
:LPR1NT B*;" 
'•jDOS A 

920:POKE R78BE, P 
P2:NEXT K 

925: IF T*="*"GOTO 



q* 



930: LF 2: FOR K=0TO 
U: J=f1CK):A= 
INT (J^30)i 
GOSUB "Z 

940:C=30:O=J:GOSUB 
"A":LPRINT 
STR* (K-*!);" : 
";DMS A; " ";A* 
<NEXT K 
1000ILF 2:F0R 1=3 
TO KK:A*= 

LEFT* ca*a> 

. 7J:G0SUB "* 
":LPR1NT A*j 

" - ";:r*= 



t":LPRINT A* 
1010:A=UAL RIGHT* 

<e*a>,2>: 

LCURSOR 19: 
IF A=0LPRINT 
"Conjopcl I on 
. ":GOTO '100 

1020: IF A=30 

LPR1NT "Oemi 
-Sext ; le"i 
GOTO J 100 

1030: IF A=45 

LPR1NT "Oeml 
-Carre ".GOTO 
1100 

1040: IF A=60 

LPPINT "Sext 
: U":GOTO 11 
00 

1050: IF A=90 

LPRINT "Carr 
p":GOTO 1J00 

1060: IF fl=)2 

LPRINT "Iris 
one": GOTO 11 
00 

1070: IF A=13 

LPRINT "135" 
-.GOTO 1100 

.1080: IF A=15 

LPRINT "150" 
:GOTO 1100 

1090: IF 0=18 

LPRINT "Oppa 
s 1 1 1 on 

1 100:NEXT 1-LF 8 

3999: END 

10000: -n-GOSUB "in" 
•RESTORE 'V 
-.FOR J-1T0 1 



2:«?EAD A*: IF 
nS*=LEFT* CA 
*, LEN MS*; 
LET MS=JS 
RETURN 

10010: NEXT l! 
RETURN 

10050: "n-'DATA "JAN 
UIER", "FEUR1 
ER", '-HARS", " 
OURIL", "nAl" 
, "JUIN", "JU1 
LLET 

10060: DATA "AOUT", 
"SEPTEIIBRE", 
"OCTOBRE", "N 
OUEnBRE", "DE 
CEMBRE 

10100: '^"RESTORE " 
n":FOR 1=1T0 
HS:REAO MS*: 
NEXT I: 
RETURN 

10500: "m'TOR J- J TO 
LEN A*:0=ASC 
nio* CA», 1, I 
K IF AO70R 
OJJ22NEXT 1: 
RETURN 

10510:O*=LEFT* CA* 
. 1-JJ+CHR* < 
A-32J+R1GHI* 
(A*, LEN A*-! 
>:NEXT I: 
RETURN 

11000: , D"DT-365*AN 
<-31*CnS-l)+J 
R+DEG HR^24: 
IF I1SOLET A 
N=AN-]:DT=DT 
•■INT C.4*criS 



'10 



-n+2.7) 

L1010:DT=DT+INT CO 
N^4J-1NT (AN 
l>*3NT <A 
I0J-INT t 
.-l*CMS-U+2. 
?>:1F nS<3 
LET AN=AN+1 

I !020:REIURN 

U2n0:"A"A=A-C*lNT 
(A/C>:RETURN 

l!400:"P"fi--JNT CJy 

30>:gosub ■ z 

";C=30!A=J: 

GOSUB "A": 

print oris a; 



11110 



DU 



■■-■'• 



J=J-TR:LINE 
?50*COS J, 50 
*SJN JJ-C80* 

COS J, 80*S1N 
JJrLPRJNI B* 
: RETURN 
■S"RESTORE " 
s":fOR J^OTO 
SHJREAQ sn*: 
NEXT J J 
RETURN 
"s"DATA "SAII 
EDI-j "D1MANC 
HE", "LUNDI", 
"MARDl", 'TIER 
CRED1", "JEUD 
I", "UENDREDJ 
-C'RESTORE B 
*:READ L! 
READ A:0=L+0 
*N+OL: GOSUB 
'A"!L=A 

A suivre : 



NERVOUS BREAK DOWN 



ft ww«iTff 
._ #W7.' 



Incroyable ! Des pieces dor a profusion dans un cha- 
teau hante ! Aucun probleme, j'ai les nerfs solides et 
quelques miserables ectoplasmes ne mempecheront 
pas de faire fortune... 

Vincent MARDHEL et Bertrand LEGOY 

Mode d'empioi : 

Les regies son! incloses 




ie '.Li 

20 CLEHR SYMBOL HF TER <;30 

30 G0SU8 860 REM * PER60NNAGES 
40 GOSUB 1200 -J*EM I PRESENTATION 
30 GOSUB 144U REM « HVERI IS^EMFNI 
bW GOiUB 151*0 REM ***** REGLEb 
70 MODE 1 DIM «(49.25.> 
80 VIE"4=wit"3 
90 REM *#** decors 
108 BORDER 1 INK 0,1 INK 1,1 INK g 
.1 INK 3,1 -ERASE ■ DIM s<40,25>VI 
E-VIE+1 h=8 ' *«0 ' n-3 ' w-3 ■ tt»23 ' t=38 
i CLSdc2»- M " •**■■" >t«bt#«u«t«blM 
u+1 IF t«bl«*u>10 THEN GOTO 1989 E 
LSE ON t*ble«u GOSUB 990. 1000. !010 
,1020. 1030, 1040.1050, 1060,1070,106 

e 

110 DC»«STRING»< 36. CHR»< 240 ) 1 
120 0C1»-CHR»< 247)*CHR»<24?) 
130 FOR i=>3 TO 23 LOCATE l.i'PEN 3 
'PRINT del* j 'PEN 1 PRINT dc*. PEN 
3 PRINT del*. NEXT 
140 dc2«-STRING»':4tj.CHR»' £47 >> 
130 LOCATE 1,1 PEN 3 PRINT dc2*'L0 
CATE 1,2 PRINT dc2*L0CRTF 1.24 PR 
INT dc2« LOCATE 1-23 PRINT dc2»J 
160 LOCATE 2,1 PEN 2 'PR INT "SCORE 

170 LOCATE 20,1 PR1NT"V1E <"j'PfcN 

1 PRINT VIE 

180 LOCATE 2,23'PEN 2 PRINfRKCOKO 

■ "■> PEN 1 PRINT RECORD 
190 LOCATE 29.23'PEN 2-PRINT "TA6L 
EAU '"y'PEN r PRINT TABLEAU 
200 REAP * IF »«-l THEN READ MX' IN 
K 0,1 : INK 1,24. INK 2,6' INK 3. 20 - GO 
TO 240 
210 READ b 

220 LOCATE b.nPEN 3'PRINT CHR*( 29 
?> <«<b,«>-l 
230 GOTO 200 
240 REM * LE JOUEUR 
250 LOCATE *.n- PRINT" "LOCATE t,t 
t IF «(t,tt>"0 THEN PEN 1PRINT CH 
R*<240> ELSE IF «(t,tt>-l THEM PEN 

2. PRINT CHR*(143; ELSE PEN 9'PRIN 
T CHRtU28)'n-3m-3'tt-23^t-38 
260 LOCATE m.n PEN 2PRINT CHP*<24 
9> 

270 IF INKEY(0X>-1 OR INKEY<72X> 
-1 THEN LOCATE m. r. n-n-1 'PRINT" "■ 
n«-CHR«C 249 > IF *<m,«>"l THEN n»n+ 
1 ELSE IF n<3 THEN n-3 ELSE GOTO 3 
10 

290 IF IWCEY(2X.~l OR IHfcEYi ?3 K > 
-1 THEN LOCATE ri . n ■ n-n»l ■ PRINT" " 
n*«CHR»C248)'IF *(M.n>»l THEN «-n- 
1 ELSE IF n>23 THEN w«23 ELSE GOTO 

310 
290 IF INKEY(8>0-1 OR INKEY<74><> 
-1 THEN LOCATE m, nm-m-1 -PRINT" "' 
n»-CHR«f251) IF «(m.n)-l THEN rr.»w* 
1 ELSE IF *(3 THEN m=3 ELSE GOTO 3 
10 

300 IF INKEY<1X>-1 OR INKEY<75K> 
-1 THEN LOCATE w,n m-m+1 'PRINT" " 
n*-CHR*<230>'IF »(o>,n)«t THEN m-m- 
l ELSE IF tn>38 THEN I-.-38 ELSE GOTO 

310 
310 LOCATE w.nPEN 2 PUN1 nt h=h- 
1 ' IF *'««.n>»0 THEN x*.n«? y. +1 

GOSUB 1100' IF -a*. THEN >f"H G'i»>UH 

i860 ERASE * flM «<40,25>.|WTQ 194 

320 IF INTth-'vltJ-h/vit THEN 36« 

330 IF t-ft. AND tt*n THEN SOUNl' 1 

08,40, 15 GOSUB 11.30 'GOTO ^30 

340 GOTO 270 

330 REM *** L'ORDINATEUR 

360 LOCATE t.ttIF *<t*tt>-0 THEN 

PEN l'PRINT CHP»-:240> ELSE IF »<t. 

tt>»l THEN PEN 3 PRINT CHP*i?*7» E 

LSE PEN PRINT CHRi< 1281 

370 IF t>* THEN t»t-l IF t-; 3 THEN 

t-3 

380 IF t<« THEN t=t + ! IF t .• *8 THEN 

390 IF tt>n THEN tt-tt-1 IF fctO T 

HEN tt-3 

400 IF tt<n THEH tt-tt+1 IF tt>23 

THEN tt«23 

410 LOCATE t.tt PEN 2 PRINT monst'- 

e* IF t*w AND tt=n THEN SOUND I . ^0 

0,40.15GOSUB 1130 GOTO 238 

420 h»h+lIF h>10fi0R THEH h«? GnTO 

270 ELSE 270 
430 REM ** ch»ir*«u 
440 ' ttttt ETFIGE 1 ***f* 
450 DATA 12,3,12.4,12,3-12,6.127. 
12,8,12-9 12. 10. 12. 11 .12.12-12.13. 
12,14,12,17,12,18.12.19.17.21. 17.2 
2.17.23.17,24.17,25.17.26,17,29. 1? 
.30,17.31.17.32.17.33.17-34. 17, 33. 



17,36. 17.37. 17. 38. 3. 20. 4- 2" 3 . 20 * 

,20.10.20. 11,20,12,20, 13. 20. | 4. 20 

460 DATA 15.20, 16,20, 17,20, 1*.2'1. 2 

2,28,23,20,-1.710 

478 ' Mtt* ETAGE 2 ***** 

480 DATA 3.29-6.29.7.29,8 >« * 2-- 

10,29,11.29,14.29-12,29. 13, 29, IS. 2 

9, 16, 29. 17, 29. 18,29. 22. 29, 2"*. 2*. 3- 

3, 8,4, 8, 5. 8. 6. 8. 7.8. 9. 8, 10.*. 11, 8- 

12, 8, 13, 8. 16, 8, 17. 8, 18. 8, 19. 8. 20. 8 

. 21, 8- 22, 8. 23, 8,24, 8, 25. 8. 26. 8,. '? . 

490 DATA 9.13.10,13,11,13,12,13.14 

,13,13,13-16,13,19,13.20,13,21.13. 

22.13,23,13,9,16,10,16,11,16.12,16 

-13,16.14.16.15.16,16, 16, 17.16, 1*. 

16,19.16.20. 16,21,16.12.30.12.31 1 

2- 32, 12. 35, 12, 36. 12. 37. 12, 38. -1.6* 

5 

S00 ' ***** ETAGE 3 ***** 

510 DATA 3.15-3.27.4.13,4,27.5.12. 

3. 18, 3, 19. 3. 20. 5, 21, 5- 22. 5. 23. 3- ?4 

.5.27,6. 12.6.18.6.27,7,12,7,15.7. 1 

6.7,17.7,18.7,27,8-12,8.15.8.24.8 

27, 9, 3. 9, 4, 9. 5<9- 6, 9. <3, 4,13, 9-11.* 

,12,9- 13,9.24.927. 18, 13. 10,24. 10. 

27,11,13,11,24,11.27, 12. 12, 12,] 5 

320 DATA 12,24,13,12,13,13.13, 18. I 

3,19,13,20,13,21.13,22,13,23,13.24 

,14, 12-14,27. 14-28. 14.29. 14, 30. 14. 

31. 14.32. 14,33,14,34,14.35,14. 36.1 

3,12,13,27,16.5,16,6-16.7. 16.8. 16, 

9,16,10.16- 11.16.12. 16,1 '<- \t 14. It 

.13.16.16,16.17.16,18,16, 19. 16-2>-i 

330 DATA 16,21.16-22.16,23.16.24.1 

6.25.16.26.16.27.1712I81219I2 

, 19.27.20,12.20-27.21, 12,21 27.22. 

27,23.27.-1.635 

540 ' ***** ETHGE 4 ***** 

330 DATA 3.19.4.19.5.-5.5.19. c ..?n.5 

-29,5.30.3.31.5.32.3. 33. 5. 34, 5,3V 

3,36,6,6,6,19,6.27,7.7.7.19,7.26.8 

, 9. 8. 19. 8. 23, 9. 9. 9- 19, 9. 24. lFt. 9- 10 

.19. 18. 23. 10. 29- IB. 30 10.31 -10-32. 

10,33,10,34,10.35,10,36.10,37.10,? 

8,11,9,11,12,11,13.11,14, 11 .15 

360 DATA 11. 16, 11, 17, 11. 18, 11- !*,! 

1.22 .11 -28.12-9,12,12.12.27.13-9,1 

3-12. 13- 26. 13. 36. 14, 3, 14, 4. 14, 3- 14 

.6,14.9,14.12.14,15,14,18,14, 19. 14 

,20,14.21. 14.23,14,33,15,9. 15. 15-1 

3-22.13.34. 16.9-16. 15.16,23.16.33. 

17, 9. 17- 12. 17, 13. 17. 14. 17, 13, 17,24 

578 DATA 17.32, 18,0. 18, 15, 18.25 18 

,31.19,7. 19, 1§, 19, 25, 19, 31,20, €.30 

.15,20,23.20.31.21,3,21-13,21.25-2 

1,26.21.27.21.28.21,29,21,30.21-31 

.22- 15-23- 15.-1 -649 

580 ' ***** ETAGE 5 ***** 

390 DATA 3.21.4-21.5.9,5.12.3.13.3 

, 14.3, 15.3.16,3.17.5.20,3.21.3,24, 

5. 30. 5. 31- 5. 32. 5. 33, 3. 34. 5, 35, r ,. 36 

.6.9.6.16.6.24.6.29.7.9-7,16.7.24. 

7, 28. 8-9.8. 16. 8. 22, 8. 23, 8- 24. 8, 27. 

9.9,9.16.10,5.10.6, 18,7,10,8,10,9, 

10,16.11.10.11 16.11.24.11,27. 11-2 

e 

600 DATA 11. 29. 11. 30. 11. 31.11. -»2, I 
1.33,11.34,11,33.11.36,11,37.11.38 
,12,11,12, 16.12.24.13.12.13. 16. 13. 
24,13,37,14,13.14.16. 14. 19. 14. 20, 1 
4,21,14,22.14.23.14.24.14,36.13,24 
,13,33,16,24,16,34,17.3,17.4,17.5. 
17, 6, 17, 8. 17. 9. 17. 10. 17.11 . 17. \v 
610 DATA 17,13.17.16. 17.24, 17. 33. 1 
8. 16, 18, 24. IB. 32. 19, 16. 19- 31, 20. 16 
.20.30.21,16,21 .17. 21, 18, 21. 19. 21 . 
20,21,21.21,22.21 ,23.21.24,21.29-2 
2.28-17,7.-1.648 
620 ' ***** ETAGE 6 ***** 
630 DATA 7,3-7.4.7.5.7,6,7,7-7,8.7 
,9,7,11,7, 12, 7. 13, 7, 14, 7- 13. 7. 16.7 
,17. 7, 18, 7. 19, 5, 26, 3. 27, 5, 28, 5, 29, 
3,30,3,31,5,32.5.33,3,34,3,35,3,36 
.14,20.14,21,14.22,14,23,14.24.14. 
23.14,26.14.27.14.28. 14,29-14.30. 1 
4,31.14.32. 14,33.14,34.14.33.14-36 
640 DATA 89.9.9. 10,9, 11,9,12.9. I? 
.9.16.9.17,9.18-9.19.9,20,9,21 .9.2 
2,9.23.9,8.11,9,11,10,11.11. 11-12. 
11,13.11,14,11,13,11,16,11,17,11,1 
8,11-19.11,22.11,23-11 .9-22, o.2T,<> 
.24,9-23,9,26,3,20.4.20.5.20.6.20. 
7-20,8,20.9.20. 12,20, 13,20. 14,20 
630 DATA 13.20.16.20-17,20,20,20,? 
1.20 -22. 20. 23. 28, 5. 26, 6. 26. 7. 26. ft. 
26.3,36,6,36,7.36.8.36.9,36,10^6, 
11.36.12,36.13.36-14,36. 15,30, 16,3 
0.17,30,18,30.19,38,20,30,21.30,22 
,30,23,30,-1,643 
660 ' ***** ETAGE 7 ***** 
670 DATA 3.13.4.13,3.5,3,6.3.7.3-9 
3.9.3,10,5.13.3.21.3,22,5,23.5.24 



,3, 23, 5, 26. 3. 27, 3-28. 3. 31, 6, in 61 
3, 6. 21, 6, 32, 7. 10. 7, 21. 7. 33- 8.5. 81 

8.8. 21. 9. 34. 9. 3. 9. 10.9. 13.9. 14.9.1 
5,9.16,9.17,9,19,9,19,9.20.9,21 ■*. 
33,10-3,10-13.10.36. 11 5. 11.13,12. 

680 DATA 12.6. 12.7. 1.'. 8. i? * 12,10 
,12.13.12,21,13,13. 13,21, 13.24. l ^ 
25. 13-26- 13.27, 13, 28 13.29, 13. -** I 
3,31. 13.32- 13.33- 13,, 4, 13. <5. 13 * 
.14. 13, 14, 21. 14. ?0. 15. 3-15. *, 15.7. 
15,8,15,9.15.18.15,11.13 12 1*-. 1 ' 
15.16,15,17.15. 18.1 5.1?-. l c ., 2m. !"■■ 2 

690 DATA 15.30.16.3.16.30,17,3,17. 

30,18.5-19-13, 18.15- 18.22. 19. 5. 1^ 

13-19.16,19.21,20.5,20.13.20, !•',?■< 

.20, 20. 30- 21. 5. 21. 13. 21. 17, 21. 2". 2 

1,30-22. 13.22.38.23. 13. 23. 3PI.-1 .64 

2 

700 ' ***** ETAGE 8 ***** 

710 DATA 3.16.3.30.4. 16.4. 3''T..vh 

. 16.5.19.5.30.5.33.5,34.5,35.5.36, 

6.5,6.16.6.19,6,30.6,36.7-5,7.16.7 

.19, 7-30, 7. 36. 9 -5. 9, 16- 8. 19. 9?^. ft 

.27, 8. 28. 8. 29-8. 30. 8. 3^.8. <6.-k.^ 

,13,9,19.9,25.9.33.9.36. 19. 7. in. 14 

.10. 19.10-24,10,33.10.36.11.8.11 . 1 

3 

720 DATA II .19,11 ,23, II -^3. 1 1 ■ «, I 

2.9. 12, 12- 12. 19- 12- 22. 12. O 12 ■'<*. 

13.9,13,19.13,33,14,9. 14. 19. 14. 33. 

13-3, 13,4. 15,3, 15.6, 15,9.1^1 *■ I'- • 

14,15, 13,13, 16,15,1 7.131*. I'.l - 1 

3.20. 13,21. 15-22, 15.23. 15-24 . 15.25 

13-26.15.27,15,29, 13.29.15,30 
730 DATA 13,31.13.32- 15. ^3. 13. '41 
3, 33, 13. 36. 16, 9, 16. 21. 1*=:. 3*:. 17. !>•. 
17, 21, 17. 36. 18. 11, 18, 21. 19- 27.18. 3 
6. 19. 12. 19, 20, 19. 26, 19, 36. 20-1 9.. >0 
. 25, 20. 36. 21. 18. 21. 24. 21. 36. ?2. 12. 
22,24,23,12.23,24.-1 .641 
740 ' ***** ETAGE 9 ***** 
730 DATA 3,10,4,10.3,3.3,6,5,7.5.1 
0, 3, 13, 3, 14. 5, 15- 3,16- 5. 17. 5- 18. S. 
19.3.29,3,23.5.26.5.29.5.30,5. 31 .<S 
,32.5,33.3.34,3-33.3.36,6.5.6.10.6 
.13,6.23.6,26,6.36.7,5.7. 10.7. 13-7 
,23, 7, 26. 7. 36, 8, 3. 8, 10, 8, 13. 8. 23. 8 
,26.8,36,9,5,9.10.9, 13. 9, 23. 9. 26 
760 DATA 9.36. 10.3. 10. 10. 10. 13. 10. 
23,10,26,10.36. 11 3- 11. 10. 11.1 3-1 I 
,16, 11. 1 7, 11, 18. 11- 19. 1 1.20. I 1.21. 
11,22-11,23,11,26, 11.27.11 28. 11.2 
9,11.30,11,31.11.32,11.33.11.36.12 
,3,12,10,13.3.13.10.14. 18.14. I't. 14 
,14.14,13. 14. 16,14, 17. 14. 18. 14-[ o 
770 DATA 14,20,14,21,14,22,14.23. 1 
4,26,14,27,14.28.14,29,14,30. |4. 'I 
,14,32,14,33,14,36-15.10.15. 13. 1 B , ■ 
36.16,5,16.6,16.7,16.8.16.4,16.10. 
16. 13, 16-36. 17, 10, 17, 13. 17. 23. 17.? 
6.17.36.19.10,18.13.18.22.18.27. t« 
,36.19.10. 19,21,19.28.20.18.20.29 
780 DATA 20.29,21,10.21,13,21,14,2 
1 .13.21 16. 21, 17. 21. 19. 21- 19- 21. -10 
-21.31 .21.32,21.33,21 .34.21 .35,21 ■ 
36,-1.613 

790 ' ***** ETAGE 10 ***** 
880 DATA 3.33,22,4,13.4.?9.5.3.5, 
6,3,7,3,8.3.9.3.10.3, U.S. l. --•■.. 1 :- 
3. 14,3. 13,3. 16,5, 17.5. 18- c . l^s •*(- 
,5,21,5.22.3,23,3,24,3.26.5.27.3.2 
8, 3. 29, 3. 30, 6. 27, 6, 29, 6. 31. 7. 3- 7. 3 
,7,26,7,32,8.3.8-9,8.4.8. 18.8-11 .s 
,12, 8. 13, 8, 14. 8. 13, 8, 16. 8.17.8,23 

819 DATA 8,33,9,5,9,8,9.24,9.34.10 
.5,10,11,19.12, 10,13-10.14. 10, 17. 1 
0.23. 10.26,10.35,11,5,11 ft. 11 . 17. 1 
1,22.11.26.11,36.12.5,12.8.12.9,12 
. 11. 12. 12. 12. 14. 12, 15. 12. 16. 12. 17. 
12.21. 12,26. 12.36. 13.3, 1 3- /4. 1 4. S. 
14,24,14,26.13.5.15,6. 15-7.15.8 

820 DATA 13,9,13,10.15.11.15.12.13 
,13. 13,14.13.13.13.16,15. 17. 13- 19. 
13. 19. 15.22.15,24.15-26. 16.3. 16.22 
.16.26,17.4,17.22,17.24-17.32,17,3 
3,17,35,17.36,18,5,18,9.18. 10- 18. 1 
2. 18.13, 18.24. 18.26. 1 8. 32. 10 36. 19 
.6,19,9,19.13.19.24-19.26.14.3? 
830 DATA 19.36.20. 16. 20, 22, 20, 26. 2 
0,32,20,36,21,9,21, 13.21. 17. 21 ,22. 
21. 24, 21, 32. 21. 33. 21. 35, 21. 36. 22. 9 
.22-10,22, 12,22, 13,22. 18,22,22,22, 
24,22,26,22,29.23,19,23.20,23,33,2 
3,33,13,28,14,20.15.20.16,28,17.20 
.18,20. 19-29.20.20.21.20.4.24 

840 DATA 3,29.6.29.7.29.8.29.9.29, 

10.29.11.29. 12.29.13.29.14.24.15.2 
9,16,29,17.29.19,29- 19.29.20.24,21 

29.22,29.23.29.-1.575 
830 REM * c#r»ct«r«» 
860 SYMBOL 230-129-126,253.193.231 



,231.231. 193 'REM casque 

870 SYMBOL 231.195.66. 102. ?4. £0.40 

.66.0 REM eh#',i»e so»r-ii 

880 SYMBOL 232,163.90,60.126.24.36 

,66. 129'REM *r»chn* 

999 SYMBOL 247. 153, «. 60, 163,163 ft 

8.66.133 REM 9rilU9« 

900 SYMBOL 233.255.253.153,255.235 

,66,66, 126'REM cr*r\9 

910 SYMBOL 234,64,252.68-12.24.16. 

24. I 5, REM serpent 

920 SYMBOL 233.68.126-219.235.165. 

165,129-255'REM sourir 

930 SYMBOL 236.127,73.73-127.85,10 

7,62-28 REM Pleurs 

940 SYMBOL 237-112,80,255.235.63,3 

7.37.188'REM uafe-j 

950 SYMBOL 240. 0,9, 2460. 60. 24. 0.0 

REM PIECES 
968 SYMBOL 236.253.219.214.136-60. 
60 36 -68 'REM m*fi9*ur 

979 SYMBOL 239.49- 123. 239, 198, ?8. 1 
91.251. 113'REM Pir*nh» 

980 RETURN 

990 monstre»«CHPif 239 'RETURN 
1008 wionstre«*CHRi' - 231 i ■ RETURN 
1010 fr,oristret«CHP»< 232) RETURN 
1020 fiionstre»-CHRi( 233 "> RETURN 
1030 nonstre»*CHP»'2?4> RFTUPN 
1040 Mor.stre**CHRt'?3S ' PFTURN 
1059 monstre«-CHR9''236'> PETURN 
1068 wonstr»*«CHR«' 237 ) RETURN 

1070 mor.stre«»CHR*' 238 ' PETiiPti 

1088 monstre»-CHR»'?^9> RFTHPM 

1098 REM ** score 

1100 score"score+l 'SOUND 1.20-1 10 

CATE 9.1PEN l'PRINT scor* 

1110 IF SCore'400"INTf =core'409' T 

HEN We«vie+1 LOCATE 25- 1 PEN 1 PR 



i L2« 


RETURN 








l | 38 


REM ** v 


e 






1146 


vie«vl«- 


IF VIE 


'1 THEN 




ELSE 


LOCRTE 25.1 PEH 


. PRINT 




115? 


RETURN 








i 160 


REM **** 


record 






1173 


IF score 


>r«cord 


THEN re.-orH« 



1189 GOSUB I860 PESTmPF THtLhHli-o 
SCORE-0 VIE=4 GOTO I8«o 

1190 REM «** PRESENTATTiu 

1208 MODE 1 'BORDER 1 > I'JK 1,24 INK 
0,1 'PEN 1 PAPER 0CLSLOrflTF in. in 
PRINT "BIDOUILLE SOFTURRF -.<HCV 
164>'L0CATE 13,13'PRINT "Pr^trte 
"FOR i«l TO 3800 NEXT 
1210 MODE 
1220 PAPER 5-CLS 

1230 LOCATE 6.6'PEN 3 PRINr'NFPvnii 
S" 
1240 LOCATE 8.12 PEN 12 PPINT"BPFft 

1250 LOCATE 10.18 PEN 1 PPINf "f-nUH 

1260 BORDER 0,26 

1270 FOR SON^l TO 4 

1280 FOR SON1»20 TO 209 STEP 18 

1290 SOUND I.S0N1.2 

1388 NEXT S0N1 

1310 FOR SON2-200 TO 28 STFP -18 

1320 SOUND I.S0N2.2 

1330 NEXT S0N2 

1340 NEXT SON 

1350 BORDER 0'PEN I 

1360 FOR J-l TO 19 

1370 FOR SON-500 TO 9 STFP -is :.on 

ND 1. SON, 4 NEXT 'SOUND 1-9.30 

1390 Posl-Po»l+2 

1399 LOCATE Posl.23'PEN 14 PP1NT r 
HR»( 229* J > , 

1400 NEXT J 

1410 FOR TEMP0RI=8 TO igop.NEa IN 

K 1,24 

1420 RETURN 

1430 REM **** Kwrtlsscnrnt 

1440 MODE 1 

1430 IW 0.9 'PAPER CLS 
1460 INK 1.6 INK 2,26 INK 3,15 
1470 LOCATE 5.2 PEN 1 PRINT"fiVERTI 
SSEMENT" 

1488 LOCATE 5,3 PPINT"***1** ft ***• 
*" 

1490 LOCATE 10,7 PEN 2 PRINT"' E IE 
U POUVANT OCCASIONNEP PES" 
1500 LOCATE 10,9 PPINT-'DEFAILLAHCF 
S CARDIAOUES" 

1510 LOCATE 18. 11 'PPINT' i tl'-iim ['Finn 
SEILLONS FORTEMENT" 
1520 LOCATE 10. 13PRINT"T0UT EXCE9 
AUX PER80NNES " 



1330 LOCATE 10. 13PPINT"NEPVEiKE=.. 

1540 LOCATE 15-21 PEN 3 PRI«T"t«l 

•uteyrs decllnent ■ 

1550 LOCATE 15,23 PPINT'-toutes res 

Ponsabtlltees" 

1560 LOCATE 15 .25 PPINT"«r, n- 

ncidents. " 

1570 FOR temPo-9 TO 7090 NEXT 

1599 RETURN 
1390 REM **** REGLES 

1600 CLSLOCATE 3.? PFN 1 PRIHT"PF 
GLES " 

1610 LOCATE 5.3PPINT"***t**r" 
1620 LOCATE 8.6 PEN 2 PRINT "VniJS 
ETES DANS UN CHATEAU HANTE" 
1630 LOCATE 8,0'PPINT "VOTRF BUT F 
ST DE RAMASSE ' 

1649 LOCATE 8. 10 PRINT "LES PIFCES 
D'OR JONCHHNT LE SOL" 

1650 LOCATE 8.12'PRINT ■'Sfins VOUS 
FAIRE DEVORER PAP 

1660 PEN 3 

1679 FOR I»0 TO 26 STEP 2 

1699 LOCATE 1.14 PRINT CHW230*"" 

I/2J-4>> 

1699 NEXT I 

1700 PEN 2 

1719 LOCATE 8, 16 PRINT'-ILS SE DEPL. 
ACENT A LEUR GUISE. " 
1728 LOCATE 1-18 PEN 3PRINT"P0«IR 
VOUS DEPLACE2. EMPL0YE2" 

1739 LOCATE 1 .20 PRINT"! ES FLFCHES 
DE CURSEUR on LE JOYSTICK.' 

1740 LOCATE 5-22PEN 1 PRINT "-UHE 
VIE DE PLUS POUR 400 PIECES" 

1730 LOCATE 3.23'PRINT"-UNE VIE DE 
PLUS POUR UN TABLEAU" 
1760 LOCATE 5,24' PRINT"-3 VIES UT1 
LISABLES AU DEPART" 
1770 FOR Il-I TO 10000 NEXT tl 
1790 RETURN 

1790 ' ** »utre P»rtie 
1800 MODE l'INK 0, 1 ' INK 1,24 CLS P 
EN 1PAPER BORDER 1 LOCATE 5.1? 
PRINT "DESIREZ-VOUS REJOIJER ' 0--N > 

1810 *t-INKEY« IF **="" THEH 1810 

1920 ••-UPPERtc »• ) 

1838 IF *««"0" THEN 100 

1840 IF »«="N" THEN ENt' 

1850 GOTO 1810 

1860 FOR Ti" 1 TO 25 

1670 LOCATE 40, 23. PRINT CHRK I 29 1 

1880 FOR temPon-i TO 38 NEXT temP 
or i 'NEXT n 

1890 PETURN 

1900 ' ** FIN DO JEU 

1910 DATA 478.59-?79-39.358,30,319 

.200,0,5.319,39.478.50.379-50,338. 
50,319-280.9,3.319. 199. 47A. 59. 379, 
50,358,30.319, 100.379. 100,478. 100. 
379.188.426.200,0.3,426,30.379,50, 
0-5-379.50-426.38,479,150,0,3.478, 
30,379,100,319. 180.0.5,319.50 

1920 DATA 358.150.0.3.339,100.379, 
50,339,30319. 100.379. 100,478. 100, 
426, 100. 478. 200, 0,5. 478, 50.-1 1 

1930 MODE 

1940 INK 0.0. INK 1.24 

1950 BORDER 9 PAPER PEN 1 ■ l nrATE 
7,12>PRINT"BRAV0 M 

1960 FOP TEMPORI = l TO 380n NF^:T TE 
MPORI 

1970 CLS 

I960 LOCATE 3-3 INK 1-6 PEN I PRIN 
T"C'EST" 

1990 LOSATE 5, 10 PRINT"DIFFIC ILE" 
2000 LOCATE 3.13 PRINT"ET CA N'H" 
2010 LOCATE 5.20 PPINT"PIEN" 
2020 LOCATE 3.25 PRINT-RAPPORTE" 
2030 READ A,B 
2040 IF A— 1 THEN RESTORE ■ GOTO 209 

2050 SOUND l.A,B-'2 
2060 SOUND 2,0.3*H,B/2 
2070 SOUND 4,0.25*A.B'2 
2080 GOTO 2030 

2099 MODE 1 'INK 1,13 

2100 LOCATE 3,12 PRINT"ftAUF Tm.iTF 
L'ESTIME DES AUTEURS" 

2110 LOCATE 3,20 PRINT-Oni s<.r»,er, 

t ttonne de woti* voir" 

2120 LOCATE 5.22 PRINT"r»no"«'r ler 

cet exPloi" 

2130 LOCATE 5,24 PRINT"VOMle2-Vocs 

te renouvelez (0 ou N) '" 
2140 «»-INKEYi IF *•-•■" THEN 2149 
2150 «S-UPPERf(i»' 
2160 IF *f-"0" THEN RUN 
2170 IF •»»"N" THEN END 
2180 GOTO 2149 
2198 REM *« FIN 



V HECTOR 

Suite de la page 24 

2860 0UTPUTCHR*U96) ,216, Y+B, 1 1 OUTPUTCHR* ( 1971 ,224 
,Y*B, 1 

2870 OUTPUTCHR* < 19B) .216, Y, 7 J OUTPUTCHRt ( 199) , 224 , Y 

2BB0 NEXT Y 

2B90 PLOT 96, 174, B, 32. 2i PLOT 104, 150, B. B. 2 

2900 PLOT 120. 174, 8,32, 2iPL0T 129, ISO, 8, B, 2i PLOT 1 

29. 174,9,8, 2i PLOT 12B, 162, 4, S, 2 
2910 PLOT 47,B4,6,32,2!PL0T 52, 60. B. B. 2: PLOT 52,84 

, 12,B,2:PL0T58.6B,6, 16,2 
2920 PLOT 73,e4.6.32,2iPL0T 79,60,8.8,2 
2930 PLOT 95,B4,6,32,2!PL0T 101 ,60.B. B, 2iPL0T101 . B 

4,8.8. 2: PLOT 106,94,6.32,2 






<^JO 



cJO 



2930 
,B4.B 
2960 

■ B4,B 
2970 
2980 
2990 
3000 
7010 

3020 

S030 
3040 

3050 
3060 

30 70 



I PLOT 



l.8,2:PLQT 149 



PLOT 119.84.6,32*,2iPL0T 125,60 

32,2 
PLOT 143,B4.6.32.2:PL0T 149.70 

8.2iPL0T153,B4,6,22,2 
PLOT 167,B4,B.32,2iPL0T 1 75. 60. 8. 8. 2i PLOT 

B,2iPL0T175,72,4,8,2 
OUTPUT'XOPYRIGHT FABRICE 6AILLY" . 43. 1 17. Z 
FOR ML-0 TO 1 

TONE 168. 200 1 TONE 1 10. 400t TONE 1 24, 200 
TONE 13 1,200s TONE 148.2001 TONE 168, 200 
TONE 124, 400(T0NE1 10,200: T0NE97, 200 
TONE 110.4OOiT0NE168.200t TONE 110.400 
TONE 1 24 . ZOO : TONE 131, 200 1 TONE 1 48. 200 
TONE 16B,200rT0NE14B,200:T0NE 168.200 
NEXT ML 
PAUSE 2 
RETURN 
' IMIIUIIIIIll 




3090 
3100 
3110 
3120 

.2 

3130 
SI 40 
3150 
3160 

LOUPE- 
3170 



' *•* REGLES ■•* 

' iiiiiiiiiiini 
WIPE 

OUTF'UT"VOULEZ-VOUS LES REGLES ' 



(0/N)' 



20, 1 



THEN RETURN 

'00. IjOUTPUT-LE G 



A»=IN5TR* I 1 } 
IF A*-"N" OR A*=" 
WIPE 

OUTPUT-LE GLOUPE-HECTOR' 
HECTOR", 61. 20I, 3 
OUTPUT"L' IGNOBLE GRANDE GAMELLE .RETIENT ".10 

OUTF'UT-LA GLOUPETTE DAN5 SON CHATEAU" , 10, 160. 



ASUIVRE... 



HUNTER 

Olivier ANGENOT £flTPp6 — \ 



TI99 BASIC SIMPLE 






II parait que des ennemis implacables assurent la de- 
fense de ce fameux couloir, lis ne savent pas a qui ils 
ont affaire. 



Mode d'emploi : 
Dans le programme 



100 REM HUNTER POUR TI 99/4A 

110 REM BASIC SIMPLE 

120 REM AUTEUR: ANGENOT D. 

130 CALL CLEAR 

140 REM INTRODUCTION DU 

130 REM JEU 

160 CALL CHAR<96. "FFFFFFFFFFFFFFFF" 

170 CALL C0L0R<9.1.1) 

ISO CALL SCREEN(7> 

190 PRINT '" " 




200 PRINT 



CALL C0L0R(9.3. I) 

FOR 1-1 TO 13 

CALL S0UND!-30O. -6. 1) 

CALL COLOR (9. 16, 1) 

CALL COLOR(9.3. 1) 

CALL SOUND (-200.-7.1) 

NEXT I 

CALL 5OUND(B0O.-7.4> 

FOR C-l TO 4 

FDR 1-24 TO I STEP 4 

> CALL S0UND(200.-7. II 
I NEXT I 

i FOR 1-1 TO 24 STEP 4 

' CALL SOUND (200. -7.1 1 

l NEXT I 

I NEXT C 

l CALL CLEAR 

l REM DEFINITION DES 

> REM CARAC TERES GRAF I DUES 
i REM DES VARIABLES ET DES 
■ REM COULEURS 



WC9I-6 

Ml 10) -7 

W ( 1 1 ) -9 

FOR I-l TO 16 

CALL COLOR (I. 16. II 

NEXT 1 

EALL CDLQRt2.16.1) 

CALL COLOR 1 16. 2. 16) 

CALL CHAR(136, "0404060F390F") 

CALL CHAR(137. "202060F09CF0" ) 

CALL CHAR (138. •■O024243CFF3C") 

CALL CHAR (139. "O0OOOO247E" ) 

CALL CHAR(140. "003C") 

CALL COLOR! 14,2.3) 

CALL CHARil52. "0000183CE73C" ) 

CALL CLEAR 

PRINT "DIFFICULTE DU JEU" 

PRINT i::s"DE 1 A 5i":::si!:: 

CALL S0UND(20O. 1222. 1) 

CALL KEY(0.LL.S1 

IF S=0 THEN 710 

IF (LL<49)*(LL>33)THEN 670 

V=LL-37 

CALL S0UND(200. 1222. 1) 

CALL CLEAR 

CALL CHAR(133. "00O044AA44" I 

CALL CHAR t 134, "1 122 734A354C922 



790 CALL CHARI 133. ••aiB199FF9981Bl") 

BOO CALL CHAR( 129, "0024243CE73C") 

810 CALL CHAR ( 153, ••008r443B3B44B2") 

B20 SC-0 

830 B-O 

B40 R-l 

B30 CALL CHAR(96. "FFFFFFFFFFFFFFFF") 

860 CALL CHAR(144."0107IF3E7D74FDF£"1 

B70 CALL CHAR(143."B0E0FB7CFE1E3FDF "> 

8B0 CALL CHARC146. "E7EF6F7B3E1F0701 " ) 

B90 CALL CHAR(147."3FFF9F2E8EFCEBB0") 

900 CALL C0L0R(13,5,1) 

910 CALL CHARI97. '■FEFDFBF7EFDFBF7F-I 

920 CALL CHAR(9B. " 7FBFDFEFF7FBFDFE" I 

930 CALL CHARI 104, "FFFFFFFFFFFFFFFF" ) 

940 CALL CHARd03. "FEFDFBF7EFDFBF7F") 

930 CALL CHAR!106."7FBFDFEFF7FBFDFE") 

960 CALL CHAR(112, "FFFFFFFFFFFFFFFF" I 

970 CALL CHARU13. "FEFDFBF7EFDFBF7F" ) 

980 CALL CHARd 14. "7FBFDFEFF7FBFDFE") 

990 CALL CHAR (120, "FFFFFFFFFFFFFFFF") 

lOOO CALL CHAR!121."FEFDFBF7EFDFBF7F") 

101O CALL CHAR (122. "7FBFDFEFF7FBFDFE" I 

1020 CALL CHARI46, "OOOOOOOOl " > 

1030 CALL C0LaR(9,3,l) 

1040 CALL COLOR! 10.6. 1 ) 

1030 CALL COLOR (11. 7, J > 

1060 CALL COLOR I 12.8, 1 > 

1070 CALL CLEAR 

1080 C-4 

1090 Y=>16 

1100 CALL CHAR<154. •0024243CE73C") 

1110 REM INDIQUE LE NOMBRE 

1120 REM DE CHASSEURS ET 

1130 REM LE SCORE 

1140 CALL 5Cr*EEN(2) 

1130 RANDOMIZE 

1160 CALL CLEAR 

1170 B-O 

1180 CALL HCHAR( 17.24, 144) 

1190 CALL HCHAR(17,25. 143) 

1200 CALL HCHAR(1S,24, 146) 

1210 CALL HCHARU8.23. 147) 

1220 FOR I-l TO 30 

1230 CALL HCHAft(INTt24«RND)*l. INT(29»RND 

)+3,46) 

1240 NEXT I 

1250 A*-"VAISSEAU I "ft* "fcSTR»(Q> 

1260 FOR I-l TO LEN(At) 

1270 CALL HCHAR(4.8+I.ASCtSEG*<A*. I , 1 >' > 

1280 CALL S0UND(10.-5.5) 

1290 NEXT I 

1300 A*^"SCORE .'"£'' "tSTRKSO 

1310 FOR 1=1 TO LEN(A») 

1320 CALL HCHAR(6,8+I.ASC<SEG*(A», I. 1) ) > 



1450 PRINT "xxxv*pqpppppppPPPPPPP<*px2KXH 

1460 PRINT ": ::v:::-qrjpppppppppppfiprjpr«::.-:-- 

1470 PRINT ■■'•xxyxxx>tXKxxxxxxxxx><xx2x>lb , 



1480 PRINT ' 
1490 PRINT 
1500 PRINT ' 



1510 
1930 

1 3 SO 

1940 

1990 
I 960 

15 70 

1980 
I 990 
1600 

16 10 

1 620 
1630 
i 640 

I 630 

1660 

1 6 70 

1 680 
1 690 
I 700 
1710 
1720 
1730 
1 740 
1730 
1760 
1770 
i reo 
1 790 



SM'b 



1 320 

1830 
1840 

l B90 
I860 



CALL HCHAR(21.Y, 12' 
REM DEBUT DU JEU 
CALL KEY(O.K.S) 
IF S-0 THEN 1670 
IF K-B3 THEN 13B0 
IF K-6B THEN 1620 
IF K-13 THEN 2300 



Y-Y-M 

CALL HCHAR(21. Y-l. 120) 

CALL HCHAR(21,V.129> 

REM CHAN6EMENT DE ■ 

REM COULEUR DE LA BASE 

C-C+l 

CALL C0L0R(13,2.W<C-4> 1 

FOR 1=4 TO 1 STEP -1 

CALL C0L0R(1+B.W(C-I),1) 

NEXT I 

REM DEPART DES 

REM CHASSEURS ENNEMIS 

IF C-ll THEN 1760 

GOTO 1770 

C-4 

IF B-l THEN 1820 

G<=INT( <3*RND>+14> 

HH=INT(4»RND>*132 

CALL GCHAR(H-l.G.SS) 

REM DEPLACEMENTS DES 

REM CHASSEURS ENNEMIS 

CALL HCHARIH-1.G.5S) 

F-INTl ( (B*RND) -3) /4) 

IF (G+F:i4)+(G*F>19>THEN 1870 ELSE 



-3,5) 



DE LA BASE 



1330 CALL SOUND ( 

1340 NEXT I 

1330 FOR DELAI-1 

1360 NEXT DELAI 

1370 REM DESSlN 

1380 PRINT 



1390 PRINT 

1400 PRINT "hhhhhhhhih' 'hjhhhhhhhn 

1410 PRINT "pppppppqhh* bhhrppppppp 

1420 PRINT "ppppppqphlhhhhhhhhihprpppppp 
1430 PRINT "pppppqppihhhhhhhhhhjpprppppp 
1440 PRINT "KxxxvppqppPPRPPPPPPprppiKiixx 



191 

: ¥20 
i 9 -.o 
[940 

1 960 
1970 
19B0 
1990 

2000 

ZC 1 

2020 

2030 
2040 

2030 
2060 

2070 
20B0 
2090 



i G=INT(G+F) 

i Ml 

' CALL 6CHAR(H.S.SS> 
I CALL HCHAR(H.G.HH) 
) IF H=23 THEN 1970 



GOTO 1330 

REM L'ENNEMI PASSE 

REM DERRIERE VOUS 

D-O-l 

FOR I »10 TO 30 STEP 5 

CALL SOUND! 100, 6. 1 > 

NEXT I 

FOR 1=1 TO 30 

NEXT I 

CALL HCHAR(21, 

FOR I-l TO 3 

CALL SCREEN! 16) 

CALL SCREEN (2) 

NEXT I 



.134) 



z I EM 1 


NEXT I 


21 LO 


FOR I-l TO 24 STEP 4 


nru 


CALL SOUND(200.-7. I) 


21 SO 


NEXT I 


2 1 40 


FOR OELAI-1 TO 100 


2 1 50 


NEXT DELAI 


2160 


IF 0<0 THEN 2190 ELSE 1150 


21 70 


REM VOUS N'AVEZ PLUS DE 


? ! 80 


REM CHASSEUR 


2 1 90 


CALL CLEAR 


2200 


CALL SCREEN (Si 


2210 


PRINT "VOUS AVEZ "1 SCi "POINTS- 


2220 


PRINT Mill 


2230 


PRINT "VQULEZ VOUS REJOUER 7" 


2240 


CALL SOUND (200, 1222. 1 ) 


2290 


CALL KEY(O.K.S) 


2260 


IF S=0 THEN 2250 


22 70 


CALL S0UNDi2OO.1222.il 


2 280 


IF K-79 THEN 370 


2290 


END 


2 300 


IF H>21 THEN 1330 


2310 


CALL VCHAR(15.Y. 133.6) 


2320 


CALL SOUND<-30O,-7.l> 


2330 


CALL HCHAR(20. Y. 120) 


2340 


CALL VCHARM7.Y, 112,3) 


2380 


CALL VCHARI13.Y. 104,2) 


2360 


SC-SC+10 


2 3 70 


IF SC-R»300 THEN 2390 ELSE 27O0 


2 3 BO 


REM BONUS A 500 POINTS 


2390 


CALL S0UND14. 1457.1,433.2.876.3 


2400 


CALL S0UND<34,345. 7,564,3. 1324, 


24!.:. 


CALL S0UND(200.234,5.-4. 1.234,3 


2420 


Q-Q+l 


2 4 30 


CALL S0UND(200O.-6,3> 


2 4 40 


CALL HCHAR(21.Y, 120.2) 


2490 


CALL HCHAR(18.V, 136) 


2460 


CALL HCHARdB. Y*l. 137) 


24 .'.-, 


FOR T-l TO 70 


248'.' 


NEXT T 


2490 


CALL HCHAR! 18, V, I 12. 2) 


25O0 


CALL HCHARdS, Y. 138) 


2910 


FOR T»I TO 70 


2320 


NEXT T 


2930 


CALL HCHARdS, Y. 104) 


234'"' 


CALL HCHAR ( 12. Y, 139) 


2530 


FOR T-l TO 70 


2961 ■ 


NEXT T 


2970 


CALL HCHAR(12.Y.32> 


2980 


CALL HCHARI8, Y. 140) 


2390 


FOR T-l TO 70 


2600 


NEXT T 


2610 


CALL HCHAR(B, V.32) 


it,:^ 


ff"R*l 


2630 


IF V>1B THEN 2640 ELSE 2670 


Z640 


V-18 


2690 


IF SC=R*300 THEN 2660 ELSE 2670 


2660 


V-V-l 


2 h 7<-' 


FOR DELAI- 1 TO 200 


2690 


NEXT DELAI 


2690 


GOTO 1130 


2700 


IF Y-INT(G)THEN 2720 ELSE 2780 


27 10 


3C-SC+10 


2720 


CALL GCHAR(H-l.G*l.SS) 


2 7 30 


CALL HCHAR(H-1,G. 134) 


2 740 


CALL S0UND(3OO.-3.1) 


2 750 


CALL HCHAR(H-l.G.SS) 


2 76'' 


B-O 


2 7 70 


GOTO 1670 


278" 


SC-SC-10 


2790 


GOTO 1670 • 
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Suite de la page 6 



67, 189 

23130 OflTA76. 0,130. 169, 7, 197.1,28 
0, 3. 32. 0. 139, 32.0- 139.76, e. 13* 

23209 F0PP.-*Aee«T0»88R:* PERI'B POK 
ER.B NEXTfl 

25210 DflTfl32. 0.129, 32. 0.131.32-0, 
133-169.2-197,1,208,49.174-110.1*0 
,224.32 

25229 D8TA240.31 177 t«8- 190 141 . 
66,190.173,189.198. 141- 67, 1<»0. 169 
32,141 

25230 DmTA.188. 190. 141. 189,1-40- 169 
.4, 32. 0.137. 32, 8- 129. 76. 64. 136- 169 
,32.141 

25249 D8Tfll88.19e.141.189. 190,76. 
9, 151. 169- 4, 197, 1.290. 49- 174. 206 1 
89,224.32 

25259 OATA249.31 .173.284. 18*. Ml 
82. 189. 173-205- 189. 141 83. 189169. 
32,141 

23269 DATA204, 199.141.293.189 1 
69. 6- 32. 0.137. 32. 0.1 31- 76- I 19, 1 ■■«■ 
169.32 

25279 PHTR141- 294. 19?. 141-28^. 1*9 
.76.0,151.169.6. 197,1-298.49.174.2 



88 

25298 DflT8J69.-i^. 141 ,228. 188-141 - 
221 , 188, 169. 8. 32 -9 . 137,32.8 . 133.76 
,174 

25300 DMTflI3S. 169.32. 141 
141,221,189.76-0.151 32 0. 138,76-9 
.133 

38999 RETURN 

49990 REtt*****X*«t«*f«X 

40901 REM* FREQUENCE * 

49902 REMX*******Kt***f 

49019 FORfi-«9019TG»9010+164 REROB 




POKEfl-B NEXTfl 

40013 DflTfl2 

40920 DflT82,26, 10,2. 10. 13, 12. 12. 1 
1,24.3,9,12.24,4-8.26.2 21 2, J 4. 12 
,10 

40030 CiBTHll, 9, 12-23,2,20.2,20.6 

49040 D8Tfl36.2.2.8. 12.24. 12,8,4 

40030 DnTn24, 11. 13.13. 11. 11-23-3 

49060 D8TA8. 12.24,2.2.8.28. 10. 19, 
28.9.3 

40065 DRTR37.2.26, 10.2. 19, 13-12,1 
2.11.24,3,9.12,24.4.8.26.2.21-2.24 
.12,10 

40070 DRThII- 9. 12.25-2.20,2-29.6. 
36.2.2.9,12-24. 12.8.4.24. 11,13-13, 
11. II. 23. 3 

40080 PATHS, 12,24,2,2.8-28, 5 ». 10. 
28, 8, 3, 37, 2, 26. 19. 2- 19. 13. 12, 12. 11 
,24,3.9.12 

49099 D8T824.4.8.26.2-21.2.24.1?. 
10. 11.9-12,23.2.20,2,20.6.36.2.2.8 

12.24, 12.8 

40100 RETURN 

59990 REM*****!-******-**** 

50991 REM* PRESENTATION * 

50092 REM**************** 

50919 HIRES'PRPER0 INK4:PRINTCHR» 
<171 

50020 REPE8T 

50925 REflPM.N.O.P 

50939 IFM-999THEN50040EI .SECtjRfiETM 
-N.I DRRWO.P. 1 

50040 UNTILM-9990RN=9990R'"i-999nRP 
-999 

50109 DHTH40.40.0.13.41,40.R.1 C ,.4 
2.49-9,2.43.41 .0.2. 44. 42, 0.2, 45. 47 
.0.1-46,43 

50110 DflTFffi, 1,47,42,0.2.48,41 .92 
. 49 - 48 . ■ 2 ■ 50 ■ 40 . 5 - . 50 - 4 1 - c . . 9 . =,2 . 
42,0.13.53 

50129 DRT842.9. 1 3. 54. 42-0, 13. 53, 4 
2,0, 13- 46, 52. 0.3. 47. 52- 9,3. 48. 5?- 



,3,49,32.0 

30121 DRTA3 

59130 O8TA60, 48, 0,7.61,46.0.7.62. 
40,8,13,63,40.0,15.64.40,7.0.64,41 
,7,0,64,46 

59149 DflTfl7, 8,64.47.7.9.72.49-n.l 
3,73,40.0.13 

30130 D8Tfl78.40.0, 15. 79,40.0-1^.8 
0.46,0.9,81,46.0.9.82.46.5.0,82,47 
.5.0.80,40 

50160 DATA?, 0.89. 4] .7. 0.88. 49. a . 1 
5,89.49.9.13.90,49.07.91.48,0.7 

50170 DmTA96.40.?.0,96.41,?,0.96- 
42.7,0,96.43,7,0,99-44.0-5.100.44. 
0,3,96.39.7 

301 80 DAT80 . 96 , 31 , 7 . 0, 96 . 52 , 7 . 9 . 9 
6,33.7,8,96.34,7,0,96,33.7.0 

30190 DflTfll08-40. 11,0.108.41.11-0 
.108,42,0,11,109.42,0-11,198.34. U 
,8,198,33 

30290 D8Tflll,0,11942,9,11.119-42 
.8.11 

39219 DBTA124, 46, 7, 0,124,47.7.9. 1 
24,48,7,8,124,49,7,8 

39229 DHTB136.49.9.13, 137.49.0. 15 
, 138.40,0.13.139.49.9, 15. 149-49.7. 
0,140.41.7 

30221 DATR0 

30230 DflT8140,47,9.0, 149.48.9.0. 1 
40.94.9.0.140,33.9,9.146,42.0.4.14 
7,42,0,4 

30240 DAT8148, 49. 0,4, 149-49,0.4 

50250 DflTfll34,40,0,15.155 49 B l* - . 
.136,46,0,9, 157.46,0.9. 159. 4* 5 0. 
158,47.3.0 

30260 OflTfll36.40,7,0, 156,41 .7.9, I 
64,40,0, 13. 163.40,8. 15, 166. 48 7. 
167,48-0,7 

50269 D8TA172 

50270 DRTA40, 11.0. 172. 41 11-0-172 
,420, 11.173,42,0.11,172,54. 11.01 
72,33,11 



50280 ORTR0,192.42.0,11, 183. 4?. 9. 
11 

38290 DRTR188.40,11.0, 188.41-11-0 
.188, 42, 0,6, 189. 42, 0,6. 188. 47. 11, 9 
. 188.48,11 

50380 DRTA0, 198,47.0,7.199.47-9.7 
, 188,34,11,8.188.55.11.9. ISA. 5?- 3 
0, 188.53.3 

30301 D8TA0 

50409 CURSET114,100.0.CHAR66.0, 1 i 
CURM0V6. 0. ^CHflR89.0, I 

59420 CURSET69- 130.0 rHRP79. o.l C 
URMOV6,0,0.CHflR82,9,l ' CHRM0V6.O. d 
CHflR63.0,l 

39438 CURMOV6,0,0^CHflR78,0.1 CUPM 
DV6,0,1'CH8R67.0.1 CURflOVfi.a.a CMfl 
R79.0.1 

30440 CURMOV6.0.0 CHAP?3.n,i niRM 
OV6,0.0:CNflR83-0-l CURI-ICIV6.9.0 CHfl 
R32.0.1 

50430 CURMOV6.0.0 CMRR79 9.1 CMpM 
OV6.0.0 CHHR82.0. 1 rilpMOV6.0.9 CHfl 
R69.0.1 

50460 CURMOV6.0.9 CH8R68.9. 1 C'IRM 
OV6.0.0 CHAR69.0. I CHRMnV6.9-0 CN8 
R92,0,l 

59470 CURMOV6.0.0 i:HHP73.9.1 =CHPM 
OV6.0,0CHflR67.0.1 

50475 CURSET40.I00.0 FILt.8,1.3 

59480 F0RA-1T04 

59491 CURSET18. 159.9 FILL2-1 - ' FI 
LL2,1,3'FILL2. 1,1 FILL2. 1 . "* UAIT2& 



30490 NEXTfl 

50491 FORA-1T013 SHOOT UflITfl*2 NE 
XTR'EXPLODE UAIT18 EXPLOPE NAIT599 



' RETURN 
30500 t>RTR999.999,999.999 

35000 REM***************-**** 

35001 REM* EXPLICATIONS * 
55902 REM******************* 
35003 TEXT 

55009 PRINTCHR8CI7) 
35010 CLS'PBPER4' INK3PL0T12.5." 
XPLICATI0N8" PL0T12.6 . 



33820 PLOTS. 6,1 

35030 PLOT2.10.-LE BUT <XJ JEU EST 

DE DEPLACER LE8 " 

55040 PL0T2,ll,"t>EUX PERSONNHCE^ 
flFIN OE FRIRE MONTER" 

35030 PL0T2. 12."LES CRlSSE 1 . O'LIM 
TRPIS-ROULHNT fl L' " 

55060 PL0T2. 13. "AUTRE. CES DERNIER 
ES ETflNT EMPILEE3" 

35070 PL0T2-14."EN HflOT 8 r.fllJCHE 
OE L'ECRflN." 

33080 PL0T2,13-"LES CfltSSES flINSI 

ACHEMINEES R8PP0RT-" 

33090 PL0T2,16,"ENT OES POINTS 8 
CMRQIJE MANIPULATION" 

55199 PL0T2. 17, "LE PERSONNAGE PE 
DROITE 3E OEPLflCE" 

33110 PL0T2,18."flVEC LES TCMJCHES 
COD ET C.3." 

55120 PL0T2,19."LE PERSONNRQE PE 
GAUCHE SE 0EPL8CE" 

33130 PL0T2.29-"flVEC LES TOUCHES 
CE3 ET OG." 

35140 PLOT2.21,"flTTENTI0Ni i • 3 EP 
REURS MAXIMUM". PL0T6. 22.1 

33150 PL0T7, 22- "BONNE CHANCE " " 

33155 PL0T7,23,"APPUYEP SLIR MNE T 
OUCHE'^GETH* 
35209 RETURN 
69909 GET A* 
69010 IFfl*-"0"TMFNP=i • 



LE LOGICIEL DE LA SEMAINE 

WORLD SERIE BASEBALL FAR IMAGINE 

POUR COMMODORE ET SPECTRUM 



Mesdames el Messieurs, 
Ladies and Gentlemen... 
Vous allez assisler en direcl 
au choc du siecle entre les 
Tigres de Saint-Just et les 
Wheelies de Gergovie. Depuis 
vingl cinq ans de competition, 
douze rencontres ont deja eu 
lieu entre Wheelies el Tigres. 
se soldant par un nombre de 
victoires egal pour chacune 
des deux equipes Les Whee- 
lies ont remporte les trois der- 
niers matchs en 1981. 1983 et 
1984. Pour le moment I'ecran 
geant nous montre les Cheer- 
leaders (vous savez, ces mi- 
gnonnes demoiselles juste 
assez devetues qui dansent et 
hurlent des encouragements a 
lequipe locale, pendant les 
matchs, pour exciter le public) 
qui agitent si harmonieusement 
leurs gros pompon s bleus el 
roses sur les accords suaves 
de "Stars and Stripes". Pour 
ceux qui n'ont que I image et 
pas la couleur, je vous rappelle 
que les Wheelies |ouent en 
rouge et sont a I altaque alors 
que les Tigres ont garde leurs 
maillots bleus et ont leur meil- 
leur batteur sur le lerrain Wil- 
liam Hycal. 

Le realisateur zoome mamle- 
nant sur le lanceur Je crois 
qui) s'agit de Oscar Dinal. le 
plus meutner des lanceurs de 
cette belle equipe des Whee- 
lies. Veritablement I installation 
de cet ecran geant permel a 
I'ensemble du public de voir 
I effort de concenlralion de 
Dinal avanl quil ne selance. a 
la recherche du premier Strike 
de la partie, II se prepare, 
lance et Hycal renvoie puissa- 
ment en hors-champs Berreby 
se precipite et relance a 
Chautma qui receptionne sans 
bavure Nouvel essai pour 
Dinal... Et Strike! Les Tigres 
semblenl vouloir prendre tout 
de suite un avantage dans 



cette partie. Le lancer de Dinal 
n'a laisse aucune chance a 
Hycal. Nous reconnaissons 
bien la notre meilleur joueur 
national. Le public s'echautte, 
les cheerleaders chantent et 
s'agitenl frenetiquement. Nous 
allons vraiment assister au 
match de la saison ! 

Cette petite description vous 
indique la richesse de ce logi- 
ciel. L'ensemble du terrain ver- 
doie joyeusement a I'ecran, 
alors que vous pouvez detainer 
Taction du joueur en train 
d'agir sur une fenetre camou- 
flee subtilement en ecran 
geant Pour ce qui est de hn- 
teret du jeu. il nest evident 
que pour les personnes qui de- 
scent connailre le (onctionne- 
ment du baseball. L'ordinateur 
pratique ce sport sans defail- 
lance. c'est vraiment a vous de 
progresser si vous desirez un 




si vous allez vous promener du 
cote des USA ou du Japon. Un 
seul detail reste choquant : les 
cheerleaders ne se rencontrent 
que dans les matchs de root- 
ball. Pour le baseball, le public 
n'a droit qua un concert d'or- 
gue pour I'ambiance. 



Fred WHEELIE 



-k Air *iV 



PEPE LOUIS CONTRE LE GANG DES PUCES ! fTienU 



RESUME DES EPISODES PRECE- 
DENTS 

Le vol 747 pour Garges les Gones- 
ses est detourne sur Cuba. Pepe 
Louis transporte dans ses valises 
les prototypes des nouveaux micro- 
ordinateurs Appoil et Atrahi Mais la 
police politique de Fidel Monastorio 
I'arrete, ainsi que Steve Jobard et 
Jack Tramolo. 

Heme EPISODE: 

VOUS N'AUREZ PAS L'AL- 
SACE ET LA LORRAINE ' 

Chaleur et poussiere l C'est la 
canicule sur La Havane, et seuls 
les moustiques echappent a la 
lethargie ambiante. Le tourgon 
cellulaire qui nous transporte 
vers je ne sais quelle destination 
est entierement sous pression. 
On se croirait dans la cocotte- 
minute de Denis Papin. Tramolo 
transpire a gros bouillons et Jo- 
bard a tombe la veste Quanl a 
moi. berete, gilete et barde de 
mon panlalon de velours noir qui 
en a vu d'autres, je suis a labri 
des mtemperies 

Les deux (lies cubains qui nous 
escortent sonl aussi bavards 
que Frederic Mitterand mais en 
plus viril. lis nous ont pique les 
deux precieuses valises qu'ils 
onl place sous le siege en fer- 
raille. La route cahote, la voiture 
tremblote, les lumieres cligno- 
tent, Tramolo crachote, il avale 
sa glotte, puis il toussote. un flic 
le tapote. Jobard lasticote : 
Touche pas a mon pote. ou 
alors j'te botte' 

C'esi Fidel Monastorio soi- 
meme, lillustre pere noel dicla- 
teur et grand eveque de la 
canne a Sucre qui nous recoil 
dans son bureau. Deux grands 
ventilateurs baignent sa barbe 
de courants d'air alizeens. 

- Messieurs, je crois que nous 
avons mis la main sur des docu- 
ments secrets de la plus haute 
importance strategique ! 

Et de designer les deux micros- 
prototypes qui sont sur son bu- 
reau 

- Shut up ! You dirty bastard rat 
communiste. s'emporte Jack 
Tramolo. Vous violez la conven- 



tion de Geneve et le droit inter- 
national en nous retenanl sur 
cette ile qui sent le sucre ranee 
et le poisson avarie > 
Dans le genre anli-communiste 
primaire, Black Jack ne fait pas 
dans la dentelle 

-Vous ne pouvez pas nous rete- 
nir longtemps. ajoute Steve Jo- 
bard. Cela creerait un incident 
diplomatique entre nos deux 
pays 

Les Irois hommes s'aflrontent du 
regard, et on sent bien que des 
choses importantes sont en tram 
de se decider. Je suis assis sur 
une chaise, un peu en retrait. 

- Je n'ai pas I'intention de vous 
sequestrer, repond Monastorio 
Simplement, je confisque ce ma- 
teriel ..Mais on va vous rendre 
vos passeports. conclut-ll dun 
ton mielleux. 

Tramolo leve un poing rond 
comme une citrouille : 

- Dirty son of a bitch, you bloody 
bastard, ces prototypes ont une 
valeur inestimable Damned plu- 
t6t mourir que de les laisser 
entre les mains des rouges ! 

La fievre monte a El Paso et les 
gardes qui ne comprennent rien 
a l anglais pointent leurs armes 
vers nous. Personnellement, je 
n'interviens pas dans la conver- 
sation car j'al ma petite idee 
derhere la tete 

Les insultes de Tramolo ont ir- 
rite le dictateur et sa barbe se 
dresse a la verticale. signe que 
son menton a du avancer bruta- 
lement de cinq bons centime- 
tres. 

- Hijo de Puta ! S'ecrie-braille-t-il 
a son tour. I'oeil torve. 

Ses narines palpitent si tort 
qu'une grosse mouche bleue s*y 
engouffre pour aller butiner le 
pistil de ce qui (vu du dessous) 
doit ressembler a une anemone 
de mer. On pressent que les co- 
leres du Monastorio ne doivent 
pas etre piquees des hannetons. 
Effectivement. il gonfle. senfle, 
rugit et finit par exploser comme 
un volcan un soir dele a Pom- 
pei. II deverse un flot d'insultes 
en espagnol. eructe des bor- 
dees de jurons a rencontre des 
capitalistes. II couvrirait a lui 



seul un amphilheatre de cara- 
bins un jour de bizutage. 
Tramolo et Jobard ont recule 
dun pas sous limpact du choc 
et la violence du Ion 
Le moulin a paroles du dictateur 
s'auto-entraine. Plus il rale, plus 
il est en colere. II sulfate a tout 
va et dans toules les directions 
Toul le monde en prend pour 
son grade. II gesticule derriere 
son bureau, refait le monde en 
un quart-d'heure. On attend que 
ca retombe comme un souffle, 
mais le bougre est plein de vita- 
lite Je laisse passer la tempete, 
vu qu'a mon age plus grand 
chose ne peut me toucher. Ce 
gars- la me rappelle un peu le 
"VIEUX". mon supeneur hierar- 
chique, quand il pique ses cole- 
res meridionales dont la reputa- 
tion a depasse les limites de la 
maison poulaga pour s'etendre 
jusques aux confins du vaste 
monde. 

Finalement, il ressort de tout ca 
que Monaslorio n'aime pas 
qu on se paye sa tele C'est lui 
qui a le pouvoir ici, il le montre. 
I'exphque. le fait comprendre et 
ajoute que nous ne sommes 
que des excrements du grand 
capital, qu'il peut nous jeter aux 
crocodiles quand bon lui sem- 
ble, et que pour commencer il 
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A VOS CONSOLES Tl 99/4 ba sic etendu disponibl e 
»» - 

T.I. logo N" 2 disponible 

mini-memoire 



CONSOLES ET ACCESSOIRES Tl 99. 4 

Micro ordinoteur Tl 99/4A Pal 

Moduloteur Secom France 

MoOuioteui Peritel 

Cable liaison magneto cassettes 

Magneto cassettes Texas Instruments 

Magneto cassettes Lansoy / Compteur et cable 

Imprlmante Seikoscha GP 50 A 

Imptlmante Seikoscha GP 500 

imonmante Epson RX80 tncllon/troctlon 

Macbine o ecrlre Brother EP 44 a memoirs 

Interlace paiollele exterleure pour Tl 99 

Interface serie exterieure pour Brother pour Tl 99 

Manerte de jeux Super Joy £> ventouse avec 

Interlace speclale supportanl 2 manettes (mai) 

Manerte Quick Shot II a ventouse Tlr Ploque 

ovec odaptateur pour 2 manettes (mal) 

PR0GRAMMAT10N 

Extended Basic manuel trancals 

Super extended basic graph manuel trancals 

Exienslon memoite 32K exterieure 

Tl Logo n° 2 en Irancais livrable avrll (Module) 

Mini memoire livrable ovril (Module) 

K7 tPSILOM/SOFTWARE POUR Tl 99 BASIC ETINDU 

lunar Landei 95 Fn Lunar Jumper 120 FH 

Solaisystem 120F'l1 SumGames 120 FQ 

• K7 lunat Lander 2 + 2 K7 I ensemble 260 F 

K7 HEBD00ICIELS SOFTWARE POUR Tl 99 

N° 3 tubls sacie Basic etendu 

N° 4 6 jeux dont Dork Crystal Basic etendu 

N° 2 12 jeux dont Roland Garros Bosic etendu 

MODULES TEXAS ORGANISATION 

Gestlon de fichlers 260 f □ Geslion de tapports 375 F □ 

Gestlon privee 360 F G 

MODULES FUNWARE POUR Tl 99 4 

Rabbit Rail ; Driving Demon ; St nick : Ambulance 

L'ensemble : 400 F 

MODULES ROMOX POUR Tl 99 

princess and Irog 120 FL. Anteolei 120 F 

Rotor raiders 1 00 F D Hen pecked 1 00 F 

MODULES EDUCATION 

Addltlon/Subslroction 

n e 1ou2 147 F □ Addition Cannon 147 F 

Mission mains 147 F 

MSieor Multiplication 147 F 

Beginning Grommar 147 F 

Nombre magic 147 F 



hoof a 

500 F . : 
500 Fa 
95 Fa 

595 F P 
370 F □ 
1 350 F D 
2500 Fa 
4 1 50 F G 
2390 F 
I 090 F U 
t090Fn 

195 FO 

230 F D 

800 f D 
t 200 F □ 
I340F D 

895 F 
895 F lJ 



95 F a 
120 F □ 
150 F □ 



MullipllcalionT 147 F D 
Early Learning 250 FD 




disponible avril. 
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MODULES 101 SIRS 
Connecl Four 
Jeux reiro 1 
Jeux retro 2 
Invaders 
Car works 
Soccer 
Zero zap 



MODULES AVENTURE 



147 F D Jeux video 2 147 F Q 

147 F D The attack 147 F D 

147 F D Othello 206 F □ 

206 F D Munch Man 206 F D 

147FD Chasse aux wlmpis 147 F [ , 

250 F Li Video Chess 250 F 



LOT N° 1 INDISPENSABLE 

• Module BASIC ETENDU manuoi en trancals 

• K7 Basic par soi-meme 

• K7 Lunar Lander 2 (simulation de vols 

spocioux) 850 F 1 1 



Pcrsec 

Adventure pirate 
Munch mobile 
Buck rorjers 
Retour du pirate 
Mash 

Mlctosurgeon 
Hopper 
Jaw bieoker 



250 F □ 
350 FC 
250 Fn 
350 F 1 

250 f a 

250 F 
250 F I | 
250 F n 
250 F a 
MODULES ATARISOFT POUR 
Moon palm! 219F 

Jungle hum 219 f 

Pole Position 210 F LJ 

Protector II 250 FD 



Tunnel ot doom 
Moonmlne 
Micro surgeon 
Popeye 
Demon attack 
Burger time 
Hopper 
Slar treck 
Treasure island 
Tl 99 
Defender 
Picnic Paranoic 
Donkey kong 



350 F. 
250 F 
250 F 
400 F a 
250 FG 
250 FU 
250 FD 
250 F LI 
250 FG 

219 FC 

250 F 

250 F 



MINI-MEMOIRE 

Ce module ne se contente pas de 

vous otlrii 4 Ko ae memoire RAM 

(alimentee por pile) per me Horn lo 

sauvegarde des programmes et 

donnees lor sq lie vous eteigne; 

l'ordinateur... 

II o aussi : 

• 4 Ko de memoire morte (ROM) el 

6 Ko de memoire morte gr op hi que 

(G - ROM) conlenant des utilitoires 

Ires i meres so n Is 

-acces possible 1'extension 32 K 

en Tl basic ; 

-chorgemenl de p'ogrammes- 

objels ecr its en assembleur. soit sur 

mini memoire, soil sur extension 

32 K, 

-utilisation de PEEK et POKE, appel 

de sous -prog rommes ncbituelle- 

ment non occessibles 

-programme de recherche 

d erreurs (Easy Bug - Debug*. 

Le module 895 F G 



MlMOIRE32Ktonctionneavecle 

basic eiendu. 

ENe est indispensable pour la pro- 

grammotion en logo Sil'onpossede 

lo mini-memoire ou lassembieur. 

elie per met aadresser des sous- 

programmes en assembleur et de 

les executer 

Le module 1 340 F 



MODULE SUPERGRAPH 

Un nouveau basic etendu avec 
35 tonctions supplemental res per- 
me "ant de tracer lignes. cere les. 
ellipses, axes, diagrammes en bar 
res ou circulates Ce basic graphi- 
que presente 2 caroctensiiques ires 
utiles: une copie d'ecron. graphi- 
ques et lexles (code ASCII), Vpoke 
el Vpeek acces direct a la Ram de 
controle ecran . ....... 120OF 



BASIC ETENDU 

Module comprenant un langoge de 
progrommahon rentorcant le Basic 
du Tl 99 40 commandes suppte- 
meniaires. acces au Ion gage 
assembleur (Entrees/sorlies). 
Sous programmes, stockoge spri- 
tes, traitement d'erreurs Expres- 
sions logiques. LET multiple Intro- 
ductions multiples. Acces lexten- 
sion 32 K 



LOGO 2 (module) 

Enseignez voire ordinoteur : 
formes couteurs. musique, 
procedures carac teres des sines, 
variables de tous genres, 
constructions grammoticales et 
a rithm enques. 
le module logo 895 F n 




CONTROLEURS - LECTEURS DE DISQUETTES 360 Ko 

• Carte controieur enlichabie dans boitier peripherique 
(compatible avec unites de d is que ties Texas). 
Double lace, double densite 360 Ko. 

• Unite de lecture de disguettes 5" ))A SLIMLINE 360 Ko 
1/2 nauteur (2 lee leurs peu vent lenir dans le 
compartimenl 'disque' du Dottier peripherique). 
L'ensemble 6300 F □ 
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